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APPENDIX F 

WIRING AND TIMING DIAGRAMS 
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CDAS - CARDIOPULMONARY LABORATORY 
SIMPLIFIED HARDWARE CONFIGURATION 


P-E MGA-1101 
MASS 

SPECTROMETER 




MASS 

SPECTROMETER 

INTERFACE 


l 


LABORATORY 
INSTRUMENTATION: 
TREADMILL OR BIKE, 
BPMS , VCG 



LABORA1 

'ORY 


MASTER 


INSTRUMENTATION 

< 

CALI- 

— 

INTERFACE AND 


BRAT I ON 


CARD1QTACHOMETER 


CONTROL 





MONITOR 
SCOPE y 
IWITCHINiF 


si/ s|/ 


2-CHANNE 

SCOPE 



VCG 

SYSTEM 


LSI-11 

CONTROL 

PANEL 


TF 


* 


AMPEX 

14- CHANNEL 
ANALOG TAPE 
RECORDER 


REAL-TIME/ 

PLAYBACK 

RELAY 

SWITCHING 

SYSTEM 


_j k 

STRIP 

CHART 

RECORDER 


LSI-11 

MICROCOMPUTER 


PROGRAMMABLE 
REAL-TIME CLOCK 


POWER SUPPLIES 


CPU 


32 K MEMORY 


LINE-TIME CLOCK/ 
SYSTEM MONITOR 


PARALLEL 

INTERFACE 


SERIAL 

INTERFACE 


A/D 

CONVERTER 


' D/A 


BICYCLE 
ERGOMETER 
WORK LOAD CONTROL 


DECWRITER 

TERMINAL 
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JSC CARDIOPULMONARY LABORATORY 
STRESS TEST TAPE LOG FORM 




Analog Tape # Subject Name: Subject # 

Date: DOY: SS# AGE: HT.(cm) WT/kg), 


CALIBRATION DATA 


CALIBRATION START TIMES: 


Analog Tape 

Cal ib. 

ECG: 


Channel 

Data 

Value 





(low/high) 

Low: 


3 

VCG-X 




5 

VCG-Y 

1 mV 

Hiqh: 


7 

VCG-Z J 




2 

HEART RATE 

60/180 bpm 

Ambient Air: 


4 \ 

‘ELEVATION 

8/32% 



l 

WORK LOAD 

60/240 watts 

AMBIENT CONDITIONS: 


6 

SPIRO. VOLUME 

0/8 liters 



9 i 

‘TREAD. SPEED 

2/8 mph 

°2: 

% 

l 

BIKE SPEED 

20/80 rpm 



11 

SYSTOLIC BP 

50/200mmHg 

N 2: 

% 

13 

DIASTOLIC BP 

50/200mmHg 



10 

°2 

0/ % 

C°2: 

% 

14 

N 2 

0/ % 1 

Temperature: 

__ * c 

12 

co 2 

0/ % 

Bar. Pres. : 

_ mmHg 

1 

TAPE REF. (Direct) 



8 

IRIG-B TIME (Direct) 




TEST TYPE 

(Circle One) Bicycle Treadmill Treadmill 

Ergometer (Modified Balke) (Modified Bruce) 


Begin Rest: (10 min) Begin Exercise: 

Begin Recovery: (8 min) Begin Recovery: 

Comments/Anomalous Conditions: 
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CDAS INPUT/OUTPUT CONNECTIONS 


VCG, BPMS, Front Panel, and Analog Interface 

BPMS SBP analog outrut ► to analog Interface SBP Input 

BPMS DBP analog output ► to analog interface OBP Input 

BPMS Korothoff Sounds output ► to analog interface K-Sounds input 

BPMS Pressure analog output ► (not used) 

Spirometer controller output ■ ■ ■ . ► to analog interface spir. vol. input 


Treadmill speed & elevation outputs V-^to front panel 
Bicycle ergometer speed & WL outputs/ treadmill /bicycle switch 


Treadmill /Bicycle switch outputs ■■►to analog interface speed & work load/ 

elevation Inputs 


LSI-11 D/A outputs (0 or 1) - ■■►to ergometer work load control input 


VCG system X lead output 
VCG Y lead output 
VCG Z lead output 


-to front panel VCG switch 


Front panel VCG trigger ►to ECG trigger Inputs of BPMS and 

select switch output cardiotachometer 


Cardiotachometer output ►to analog Interface HR input and to front 

panel DPM switch 


All analog interface outputs / — ►to DPM/Scope Monitor switches 
Front panel BNC DPM/Scope Inputs J 


DPM/Scope Monitor switches outputs — ►to front panel DPM select switch and 

oscilloscope vertical Inputs 
Front panel DPM swtich outputs ►to DPM 


All analog Interface outputs (-►to patch panel (see Chart) 

Mass spectrometer interface outputs) 


T.C. generator IRIG-B code out ►to analog tape chan. 8 record input 

Tape recorder chan. 8 reprod. output -►to T.C. generator/reader code in 


Abbreviations: 

VCG Vectorcardiograph 

BPMS Blood Pressure Measuring System (Sphygmometrograph) 

WL Work Load (of bicycle ergometer) 

D//^ Digital to Analog output from LSI-11 

T.C. Time Code 

DPM Digital Panel Meter 
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CDAS Relay Patch Panel, Analog Tape Recorder, LSI-11 A/D Inputs 



NOTES: 

(1) Except for patch panel relay pole #11: 

- All relay ^inputs are from outputs of analog and mass spectrometer Interfaces 

- All relay 12 inputs are from analog tape recorder playback ( reproduce) outputs . 
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CDAS LATCHING RELAY PATCH VMlil 
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flj Ccn-.ectors on row 2 are switched to corresponding connectors on row 1 (top) in Real Tire rode. 

(2) Csnv:ctors cn row 2 are switched to corresponding connectors on row 3 in Playback node. 

(J) Con *.- spa cing conr.ec tors on rows 6, 7. and 8 are wired together and to coax cables on back of panel. 

(4) "icek" of panel faces inside of rack; "front" of p^nel faces the rear door of rack. 

(5) Signal ;n "LCG" connector coses from front panel X-Y-Z switch, and goes to inputs of cardiotachaxeter and BPKS. 
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LSI-11 COMPUTER CONTROL PANEL AND INTERFACE CABLES 


I 
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COAS MICROCOMPUTER HARDWARE REQUIREMENTS 


Suppl ler 

Model No. 

Description 

MOB 

MLSI-KD11-HA 

LSI-11 CPU 

MDB 

MLSI-KEV11 

Extended Arithmetic Option 

MOB 

MLSI-MSV11-DD 

32K x 16 bit RAM, on-board refresh 

MOB 

MLSI-DRV11C 

Parallel Interface 

MDB 

MLSI-SMU 

System Monitoring Unit/Line Time Clock/ 
Front Panel Controls/Bus Terminator 

MDB 

MLSI-BPA84 

Backplace - Card Guide Assembly 

MOB 

MLS I -BAH -000 

Enclosure 

MDB 

MDB-250-T-5/12 

Power Supply 

MOB 

MLSI-DLV11 

Asynchronous Interface 

MDB 

MLSI-KW11P 

Programmable Real-Time Clock 

ADAC 

1030-16PD-A- 

3P6A-2-A-P 

Analog Data Acquisition and Control 
System 

Data 

Systems 

DSD 210-L11-2 

Dual Flexible Disk System 

DEC 

LA36 

Decwriter II Hard Copy Terminal 
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CVDAS Input/Output Signals - Parallel Interface 


Input Register - Address 167774 Output Register - Address 167772 


Input Register 
Lines 

Function 

IN 00 

CALIB. Swltf.n 

IN 01 

REST Sw. 

IN 02 

EXERCISE Sw. 

IN 03 

RECOVERY Sw. 

IN 04 

PAUSE Sw. 

IN 05 

END TEST Sw. 

IN 06 

FVC Sw. 

IN 07 

(Spare Switch) 

IN 08 

\ 


IN 09 



IN 10 



IN 11 


y not 

IN 12 


used 

IN 13 



IN 14 



IN 15 

J 



Output Register Function 

Lines 

OUT 00 

CALIB. Light 

OUT 01 

REST Light 

OUT 02 

EXERCISE Light 

OUT 03 

RECOVERY Light 

OUT 04 

PAUSE Light 

OUT 05 

END TEST Light 

OUT 06 

FVC Light 

OUT 07 

(Spare Light) 

OUT 08* 

TEST TYPE 0 

OUT 09* 

TEST TYPE 1 

OUT 10 

Deer. TM Elev. 

OUT 11 

Incr. TM Elev. 

OUT 12 

Incr. TM Speed 

OUT 13 

Deer. TM Speed 

OUT 14 

not used 

OUT 15 

not used 


*See below 


Control /Status Register - Address 
167770 


Control Lines (used as outputs) 


CSR 1 CSR 0 

Operating Mode 

0 

0 

Normal (Operate) 

0 

1 

Low Calib. 

1 0 

High Calib. 

1 

1 

Ambient Air/Standby 


Test Type Control Lines 


0U T 09 

OUT 08 

Selected 
Test Type 

0 

0 

Treadmill 

0 

1 

Bicycle Ergometer 

1 

0 

LBNP 

1 

1 

Other 
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LSI-11 SERIAL INTERFACE CABLE 


Computer 40-Pin 
Board Connector 

Agile A1 Terminal 
25-Pin EIA Connector 

Signal Pin No. 

Signal Pin No. 

EIA Received Data In 8 
Transmitted Data 6 
Signal Ground 1,2 
Data Set Ready 22 
Data Terminal Ready 26 

Protective Ground 1 
Transmitted Data 2 
Received Data 3 
Signal Ground 7 
Data Terminal Ready 20 
Carrier Detect 8 


LSI-II ANALOG/DIGITAL CONVERTER CABLE 


Signal 

Name 

A/D Board 
Connector Cl 
Pin No. 

Analog Cable 
50-Pin Connector J1 
Pin No. 

Coax Cable 
BNC Connector 
Designation 

A/D Ch. 0 in 

31 

16 

0 

A/D Ch. 1 in 

29 

15 

1 

A/D Ch. 2 in 

27 

14 

0 

i_ 

A/D Ch. 3 in 

25 

13 

3 

A/D Ch. 4 in 

23 

12 

4 

A/D Ch. 5 in 

21 

11 

5 

A/D Ch. 6 in 

19 

10 

6 

A/D Ch. 7 in 

17 

9 

7 

A/D Ch. 8 in 

32 

33 

8 

A/D Ch. 9 in 

30 

32 

9 

A/D Ch. 10 in 

28 

31 

10 

A/D Ch. 11 in 

26 

30 

11 

A/D Ch. 12 in 

24 

29 

12 

A/D Ch. 13 in 

22 

28 

13 

A/D Ch. 14 in 

20 

27 

14 

A/D Ch. 15 in 

18 

26 

15 

D/A Ch. 1 out 

37 

46 

D1 

D/A Ch. 1 ret. 

38 

45 

(D1 Shield) 

D/A Ch. 2 out 

39 

44 

D2 

D/A Ch. 2 ret. 
Amp. Lo in 

40 

43 

(D2 Shield) 

(Source Ret.) 
Power Return 

33 

50 

(A/D Input Shields) 

(Chassis Grd.) 

34 

49 

N.C. 
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Related Equipment 


Seperate reports are available on the following items, 
which are used with the LSI- i 1 CVDAS system for tests 
in the JSC Cardiovascular Laboratory: 


Microprocessor - Based Cardiotachometer 


Analog Interface and Control System for the 
JSC Cardiovascular Laboratory 
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Hierarchy Dlagraa of the CM5 PR 




























Start 



Program: PRETEST 
PRETEST asks the user the 
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Start 


Call Data 
(IN) 


/ Tear* 

P0ATA(43) 


Call CAL 
Calibration 



Sal act: 
l)Cal 2)PFT 
3} EX 4) End 
^ Test , 


< ^DRvIl S par^> 
illel Inter- 
\ face / 


IF|END TES T 

Call Data 
(OUT) 


ifm 


Call CAL 
Calibration 


Call PFT 
Forced Vital 
Capacity 


EX Call E’> 
— H Exercise 


Flow Chart of STRESS 

STRESS Is the main program that tests the COAS front panne 1 
switches; only those llte are functional. 
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r If IN * 

’~TypT7n~nai^ 


of data file 



SUBROUTINE DATA 

Subroutine data performs all 
the disk I/O for CDAS one 
argument Is passed, either 
OUT or IN 


Call IRAD50 , 
put file name! 
in RA0IX50 
format 
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/ Set com- 
' mon ADC0M1 
PDATA GASCON 






Set programmable clock status 
regi ster 

Set programmable clock count 
buffer register 


ADISR activ- 
ated by 
programmabl e 
clock 

1 

r 

Accumul 
A/0 Sam 

ate 

pies 

1 


* 


IF=0 



SUBROUTINE CAL 

Calibration is accomplished three 
phases: 

Phase 1: low calibration 
Phase 2 : high calibration 
Phase 3: ambient calibration 
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B 



SUBROUTINE CAL CONTINUED 
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SUBROUTINE INITI 

This subroutine Is used by CAL. PFT and EX subroutines to 
restabllsh the value in the ADC0M1 common area used by ADISR. 
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From 

STRESS 



Flow Chart for SUBROUTINE PFT 
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SUBROUTINE EX 


The exercise subroutine collects 















t 
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Routine PAUSE 
for SUBROUTINE EX 


This routlno Is 
called when the pause 
button Is pushed. 
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WRKADJ continued 
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Subroutine SNATCH 




I 

I 

I 

I 


| 


i 

I 


This routine prevents the A/D 
Interrupt routine from updating 
the heart rate and workload 
data to maintain accuracy while 
It Is being moved to the WRKADO 
routine 



I 

1 

1 




SUBROUTINE TRSBUF 

This subroutine disables the clock Interrupts by altering the program 
status word then makes a copy of ADC0M1 and GAS30. ADC0M1 and GAS30 
are zeroed and certain values In ADC0M1 are reset in their original 
value. The clock interrupts are again enabled. 
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SUBROUTINE RPT30 


Set up 
common 
areas 


This routine prints the 30 
second reports for the collected 
data and places the 1 minute 
reports In the patients data 
file. 



y/lQSt X 

for bicycle 1 
treadmill „ 


TREADMILL 


Calculate 
work and 
work sum 


Calculate 
elevation 
and speed 


Print reportj 
30 sec. 










SUBROUTINE REPORT 

Prints the correct headers 
for the 30 sec reports 
depending if test is a 
treadmill or bicycle. 



AOISR 1 


AO I SR 


Routine AOISR 
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ADISR 2 


X[X(1|)>N 

/ itlon pre- 
viously in 
XprogitJif, 


(EXHALE tO) 


Vol.Sampfl 

hreshold 

(SVTHR5)? 


Decrement 

LOCNT 


NO! (EXHALE 
N0£XH)b 

yip.voi\ 

^ Sample > X 
threshold . 
S^fSVTHRS)/^ 


Reset 

HICNT-5 


Reset 

Loarr-5 


LOCNT 


HICNT 
■sTf ^ 


Set EXHALE* -1 
Reset 
HICNT-5 


Increment EXHCNT 
Reset EXHALE * 0 
RESET LOCNT - 5 


^FVCX 
test In 
progress 
v ? y 


FVCTSTX 

/fvc\ 

^ test in 
Xpr^resj/ 

TES^ (tO) 

STORSV y 

Store Sp. Vol. 
Sample 

Set EXHALE - -1 


Store 

Spirometer 

Volume 

Sample 


Sample 0?, N, 
& C0 2 i z 
store in 
6ASBUF 


Decrement 

HICNT 


Store updated 
gas buffer 
displacement 
pointer 


Reset 

COUNT - 10 


Count 

>0 

. ? ^ 
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Add WL-Elev sample to 
double-word WL-Elev 
accumulators (AWL-AWL1 
and CWL-CWL1) 








ADI SR 5 


£ 


Trigger A/D 
for DBP 
sample 


I 


Add SBP sample to 
double-word 
accumulator (CSBP* 
CSBP1) 


Walt until 
A/D conver- 
sion Is done 


Get DBP sample & 
add it to double- 
word accisnulator 
(DBP-DBP1) 
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SUBROUTINE LIGHT 


This routine Is used by subroutine CAL and EX to turn on the 
appropriate panel lights to cue the operator to the functions 
allowed at various times during a test. 
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Start 


PROGRAM REPORT 


lit up 
common 
POATA 


This program rtproduces n 
n unbar of copies of the (Hit 
minute summery report; and 
also, allows the user to edit 
the stored data 


/ Read sub- 
/ Ject data 
from 0X1 1 


/i* iN 

Correct file, 

x ? y 





EDIT SUBROUTINE 

This subroutine allows the user 
to edit the data stored In the 
subjects data file stored on 




=3 

Print minute 
val ues 
Edit If 
needed 


przi 

Write new 
data Into 
subject disk 
file 



Program: PLOT 

PLOT allows tha ustr to 
select various combinations 



copies 

printed 


57 



APPENDIX H 
PROGRAM LISTINGS 


"EDINg PACE Dean;; 


N t OT 


FlU.fpc 
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¥ 


ft 


| 

! 


t 

F 

i' 

(■ 


c ******************************************************************* 

C ft****************************************************************** 


c * * 

C * TECHNOLOGY INCORPORATED * 

C * LIFE SCIENCE DIVISION * 

C * * 

C ******************************************************************* 

c * * 

C__* PROGRAM NAME!..... PRETES . * 

C * AUTHOR* „ CCROTHY STEPHENS * 

C * DATE: 2/NOV/78 * 

C * WOOIFIEO: A6HIJIT GADGIL (DEC/l<>7 r /) * 

C * * 

C * .... . _ * 

C * COMPUTER SYSTEM: DEC POP 1103 "LSI-11* * 

C * OPERATING SYSTEM*.. RT-ll V01C-03A * 

C * * 

c * * 

C * COMPILING SEQUENCE: . . _ * 

C * * 

C * .R FORTRA <CR> * 

C * *PRETESsPRETES/L <CR> * 

C * *<CR> * 

C * * 

c 

c * * 

c * RUN MQDUAL LINKING SEQUENCE: * 

C * * 

C * ,P LINK <CR> * 

C * *PRETES=P«ETES,DXO:SYSLIB/F <CR> * 

C * *<CR> ..... * 

C * * 

c 

c * * 

C * CALLING SEQUENCE: * 

C * * 

C * ,R PRETEST <CR> * 

c * * 

C * * 

C * PURPOSE: * 

c * * 

C * ALLOWS THE USER TC CREATE A PATIENT DATA FILE ON 0X1* * 

C * AND ENTER IN THE PERTINENT SUBJECT INFORMATION . * 

C * * 


c ******************************************************************* 
c ******************************************************************* 
c 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 
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0001 

0002 

0003 

0000 

0005 

0006 
0007 

oooa 

0009 

0010 

0011 

0012 

0013 

0010 

0016 

0017 

ooie 

0019 

0020 
0021 

0022 

0023 

0025 

0027 

0028 
0029 

0031 

0032 

0033 
0039 
0035 

0037 

0038 

0039 

0090 

0091 
0093 
0099 

0095 

0096 


c 

C PROGRAM, pretest 

c 

C PURPOSES QUESTIONS NECESSARY FCR TREADMILL 

C 

C and BICYCLE SUejECT data 

C - . .... - 

c 

c 

C ***************************************** *************** 

REAL CRT (10) 

LOGICAL*! YES# JNUM 
- REAL*9 IMONTH, KCNTH(12) 

DATA MONTH/ 'JAN'# 'FEB', 'MAH'# 'APR', 'MAY', 'JUN'# 'JUL', 

X ' AUG 'SEP', 'OCT'# 'NOV ' # 'CEC'/ 

COMMON /X /MON ( 29 ) 

INTEGER NFILE(3)#FILE(9),ICKT(1536) 

EQUIVALENCE C ICRTT50) ,CRT ( 1 ) ) 

. .EQUIVALENCE. QCRT(59),TMP),(ICRT(57),PRS) 

DATA PILE/ 3R0Xl,3RXXX#3RX*x#3R DAT/ 

DATA YES/1HY/ 

C ZERO OUT THE DATA BLOCKS (6 CF THEM) 

DO 800 Lsl.1536 
800 ICRT (1)30 

C * * * * *. SET. UP GUEUE ELEMENTS FOR DISK I/O 
CALL LOCK 

IF( IQSET ( 3) . NE . 0) STOP 'QUEUE ELEMENT FAILURE' 

IGOOPsO 
TYPE 900 

900 FORMAT ( ' PATIENT FILENAME S'#S) 

ACCEPT 910.NFILE 
910 FORMAT (3A2) 

CALL IRAQ50(6#NFIL£#FILE(2) ) 

C * * * * OPENING DISK FILE 
ICHANs IGETC ( ) 

IFdCHAN .LT.O) STOP 'NC AVAILABLE CHANNEL' 

IFCIENTER(ICHAN#FILE#6) .LT. 0) STCP 'FILE ALLOCATION FAILURE' 



TYPE 199 


199 

FORMAT ( ' 

PRETEST QUESTIONS 


IF(IGOOF.GT.O) GO TC 

121 

521 

TYPE 21 


21 

PORMATt' 1. SUBJECT 

NAME: '#*) 


ACCEPT 22# ( ICRT ( I ) 

# I s 2 6 # 3 9 ) 

22 

F ORMA T ( t 9 A2 ) 

IF ( IGOOF .GT. 0) GC 

TO 121 

522 

TYPE 1 



1 FORNATC' 2. SUBJECT SEX (MsMALE#F=FEMALE) : '#$) 
ACCEPT 2, ICRT (2) 

2 FORMAT ( A2 ) 

IF(IGOOF.GT.O) GO TC 121 

523 TYPE 23 

23 FORMAT ( ' 3. SOCIAL SEC. NO. ( N N N NN NNNN ) ') 

ACCEPT 3# (ICRT(I) ,Is3#5) 

3 F0RMAT(I3# 1X.I2, IX, 19) 
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0097 

0099 

0050 

0051 

0052 

0053 
0059 

0056 

0057 

0058 

0059 

0060 
0061 
0062 
0063 
0069 

0065 
0067 

0066 

0069 

0070 

0071 
0073 
0079 

0075 

0076 

0077 

0079 

0080 
0081 
0082 
0083 
0089 
0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 
0099 

0095 

0096 

0097 

0098 

0099 

0100 
0102 
0103 
0109 

0105 

0106 
0108 


IF(IGQQF.GT.O) GO TC 121 
529 TVPE 33 

33 FORMAT ( * 9. CATE OF BIRTH (OO-MNN-YY): ') 

ACCEPT 9, I DAY# I MONTH# I YR 
9 FORMAT ( 12# IX # A3# 1 * # 12) 

00 100 Isl ( 12 

IFCIMONTH.NE.MCKTH(I)) GO TC 100 

ICRTC22)*t 

ICRT (23) *IDAY 

ICRT(29)*IYR 

GO TO 300 

100 continue 

TYPE 200 

200 FORMAT ( * ERROR IN DATE OF BIRTH. PLEASE RE-ENTER') 

GO TO 529 
300 CONTINUE 

IFUGOOF.GT.O) GO TC 555 

525 TYPE 65 

65 FORMAT ( * 5, HEIGHT (CM): '#S) 

ACCEPT 5# CRT ( 1 ) 

5 FORMAT(F6.0) 

IFUGOOF.GT.O) GO TC 121 

526 TYPE 266 

2b6 FORMAT!* 6. HEIGHT (KG) :*,$) 

ACCEPT 6# CRT (2) 

6 F0RMAT(F6.1) 

IFUGOOF.GT.O) GO TC 121 

527 TYPE 67 

67 FORMAT ( * 7. TEST DATE (CC-MMM-YY) : * ) 

ACCEPT 7# IDAY,IMCNTH,IYR 

7 FORMAT (I2#1X#A3#1X#I2) 

DO 500 Isl, 12 

IFCIMONTH.NE.HCNTHU) ) GC TC 500 
ICRT(90)sI 
ICRT(9l)sI0AY 
ICRT (92) si YR 
GO TO 700 
500 CONTINUE 
TYPE 600 

600 FORMATU ERROR IN TEST DATE. PLEASE RE-ENTER') 

GO TO 527 
700 CONTINUE 
GO TO 555 
31 TYPE 68 

68 FORMAT ( * 8. IMCUE NO.(AANNNN): ») 

ACCEPT 8#ICRT(7), ICRT (8 ) 

8 FORMAT ( A2 # 1 9 ) 

IF(IGOOF.GT.O) GO TC 121 

528 TYPE 69 

69 FORMA T ( * 9. RETEST NO.! ',S) 

ACCEPT 9, ICRT (9) 

9 FORMAT (12) 

IFUGOOF.GT.O) GC TC 121 

529 TYPE 70 
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0109 

0110 
0111 
0112 

0119 

0115 

0116 

0117 

0118 

0120 
0121 
0122 
0123 
0129 
0126 

0127 

0128 

0129 

0130 

0132 

0133 
0139 

0135 

0136 
0138 

0190 

0191 

0192 
01«3 
0199 

0196 

0197 

0198 

0199 
0150 

0152 

0153 
0159 

0155 

0156 

0158 

0159 

0160 
0161 
0162 

0164 

0165 

0166 

0167 

0168 

0170 

0171 
017 ? 
0173 


70 

FORMAT!' 10.. CPIO NO.CNKN): *) 
ACCEPT 10# ICRT(IO) 


10 

FORMAT (14) 

IF ( IGOOF .GT .0 ) GO TC 121 


530 

TYPE 71 


71 

FORMAT ( ' 11. TEST MODE: ( 1*LIVE#2sTAPE) 
ACCEPT 11# ICRT(ll) 

'#?) 

11 

FORMAT (12) 

IF (IGOOF. GT.O) GO TO 121 


531 

TYPE 72 


72 

FORMAT CM2. TYPE OF TEST ! (2*TREA0MILL# 1 sERGOMETEP) 
ACCEPT 12# ICRT (12) 

12 

FORMAT ( 12) 

IF (IGOOF .GT .0) GO TC 121 


532 

TYPE. 73 


73 

FORMAT ( * 13. AMBIENT TEMP.(C) : '#!) 



ACCEPT 13# TMP 


13 

FORMAT (F5.0) 



IF(IGOOF.GT.O) GO TC 121 


533 

TYPE 74 


74 

FORma T ( ' 14. AMBIENT PRESSURE (MMHG ) : '# 
ACCEPT 14, PRS 

S) 

14 

FORMAT (F6.0 ) 

IF(IGOOF.GT.O) GO TC 121 
IF ( ICRT ( 1 2) .EG. 2) GO TC 121 


534 

TYPE 75 


75 

FQRMAT(' 15. TARGET HR 3 4 MIN. (8PM): 
ACCEPT 276# ICRT ( 15) 

S) 

276 

FORMA T ( 1 4 ) 

IF ( IGOOF .GT.O) GO TC 121 


535 

TYPE 277 


277 

F QPM A T ( * 16. TARGET HR S e MIN.(BPM): » 
ACCEPT 278# ICRT (16) 

#S) 

278 

FORMAT (14) 

IF ( IGOOF .GT.O) GO TO 121 


536 

TYPE 279 


279 

FORMATf' 17. TARGET HR S 12 min.(BPm): 
ACCEPT 280# ICRT (17) 

',S) 

280 

FORMAT (14) 

IF ( IGOOF .GT.O) GO TC 121 


537 

TYPE 281 


281 

FORMAT ( ' 18. TARGET HR S 16 MIN. (8PM); 
ACCEPT 282# ICRT (18) 

'#S) 

2 82 

FORMAT (14) 



I F ( IGOOF .GT.O) GO TO 121 


538 

TYPE 191 


191 

FORMAT ( ' 19. MAX TEST ? ( 1 *Y ES # 2 = N0 ) : 
ACCEPT 19 # ICRT (19) 

'#$) 

19 

F0RMATCI2) 



IF l ICR T ( 1 9) .EG. 2) GO TC 121 
ICRT(20)=220-ICRT(25) 

TYPE 20,ICRT(20) 

20 FORI* A T ( * 20. TARGET HR S MAX: '#14) 

50 FORMAT (12) 
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0174 

0175 

0176 

0177 

0178 
0180 
0181 
0182 

0183 

0184 

0185 
0187 
0180 

0190 

0191 

0192 

0193 


0194 

0195 

0196 

0197 

0198 
0200 
0201 
0202 

0204 

0205 

0207 

0208 

0209 

0210 


121 TYPE 122 

122 FORMAT!' ALL INFORMATION CORRECT ? ( Y*YES) *) 

ACCEPT 222# JNUM 

222 FORMAT(Al) 

IFUNUM .EQ. YES) GO TO 120 
IGOOFaIGOOF+1 
TYPE 322 

322 FORMAT!* TYPE QUESTION NUMBER OF INCORRECT ENTRY ») 

ACCEPT 323# INUM 

323 F0RWATII2) 

IF (INUM .LE. 0) GO TO 338 
IF ( INUM .GT.20) GO TO 338 
GO TO 490 

338 TYPE 339 

339 FORMAT!* ***** TRY AGAIN# KRCNG ENTRY 11111*) 

GO TO 121 

490 GO TO (521#522#523#524#525# 526*527*31# 52 8# 529*530 

* #531,532# 533#534# 535 #536*537 *538)# INUM 
C . 

C CALCULATE AGE FROM 000 ANO TEST DATE 

C 
C 
C 

C MONTH CHECK ********* 

C 

c 

555 ICRT(25)*ICRT(42)-ICRT(24) 

IF (ICRT(22)-ICRT(40)) 666*664,663 

663 ICRT(25)sICRT(25)-l 
GO TO 666 

664 IF (ICRT(23).GT.ICRT(ai)) GC TO 663 
666 TYPE 667# ICRT(25) 

067 FORMAT!* AGE: **I2) 

IF(IGOOF.GT.O) GO TO 121 
GO TO 31 

C******** WRITING TO DISK FILE 

120 IF(TwRITrt(1536,ICRT,0*ICt-AN).LT.0) STOP *CISK *PlTE ERROR * 
C ***** * CLOSING DISK FILE 
CALL UNLOCK 
CALL CLOSEC(ICPAN) 

STOP 

END 


64 




1 

FORTRAN 

IV 

STORAGE MAP 

|name 

OFFSET 

ATTRIBUTES 

CRT 

000150 

REAL*4 

ARRAY (10) 

■MONTH 

006006 

REAL*4 

ARRAY (12) 

■*file 

006066 

INTEGERS 

ARRAY (3) 

FILE 

006070 

INTEGER*2 

ARRAY (4) 

• ICRT 

000006 

INTEGERS ARRAY (1536) 

■ YES 

006100 

LOGICAL*! 

VARIABLE 

*JNUM 

010202 

logicalm 

variable 

IMONTH 

0 1 0200 

REAL*4 

VARIABLE 

f TMP 

000160 

REAL*4 

VARIABLE 

ftPRS 

000166 

R£AL*4 

variable 

I 

010210 

INTEGER*2 

VARIABLE 

yLOCK 

000000 

INTEGER*2 

PROCECURE 

1 IQSET 

000000 

INTEGER*2 

PROCEDURE 

**1600? 

010212 

INTEGER*2 

VARIABLE 

IPA050 

000000 

INTEGER*2 

PROCEDURE 

| ICHAN 

010214 

INTEGER*2 

variable 

iilGETC 

000000 

INTEGER*2 

PROCEDURE. 

IENTER 

000000 

INTEGER*2 

PROCECURE 

TTlOAY 

010216 

INTEGER*2 

VARIABLE 

1 IYR 

010220 

INTEGER*2 

variable 

*'INUM 

010222 

INTEGER*2 

variable 

„ I WRIT* 

000000 

INTEGER*2 

PROCECURE 

1 UNLOCK 

OOOOOO 

ft£AL*U 

PROCECURE 

l.CLOSEC 

000000 

REAL*4 

PROCECURE 

j COMMON 

BLOCK /X/ LENGTH 000060 

f .MQN 

OOOOOO 

INTEGER*2 

ARRAY (24) 


i : 
i - 


i 


l. 

a . 
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****************************************************************** 


TECHNOLOGY INCORPORATED 
LIFE SCIENCE DIVISION 

***************************************************************** 

PROGRAM NAME!,.. STRESS 

AUTHOR! ROY A. REED 

........ CHUCK MANN 

WILLIAM G. CROSIER 

DATE:,..*. 2/NOV/78 


o n 

* 



★ 

c 

* 

COMPUTER SYSTEM! 

DEC POP 1103 "LSI- 1 l " 

* 

c 

* 

OPtRATlNG SYSTEM! 

RT-11 V01C-03A 

it 

c 

* 


it 

L 

c 

* 



* 

c 

* 

COMPILING SEQUENCE! 


* 

c 

* 



it 

c 

* 

.R FORTRA <CR> 


it 

c 

* 

*STRESS=STRESS,INITI,CATA/L 

<CP> 

it 

c 

* 

*cal*cal <CR> 


it 

c 

★ 

♦PFTsPFT <CR> 


it 

c 

* 

*EXsEX,RPTHDR,WRKADJ,eREATH 

#RPT30» TIME <CR> 

n 

c 

* 

*LIGHTslIGHT <cr> 


* 

c 

it 

*<CR> 


★ 

c 

it 

,R MACRO <CR> 


★ 

c 

it 

*AUISR=ADISR <CR> 


* 

c 

* 

*TRS8UF=TRS3UF <CR> 


* 

c 

it 

*SNATCH*SNA TCH<CR> 


* 

c 

it 

* <CR> 


* 

c 

r 

★ 



★ 

u 

c 

* 



it 

c 

★ 

RUN MOOUAL LINKING SEQUENCE!. 


* 

c 

* 



* 

c 

* 

,R LINK <CR> 


★ 

c 

* 

*STRESS*STRESS#CAL,PFT,EX,CXO!SYSLIB/F/C <cr> 

* 

c 

* 

*LlGHT»AOISRfTRSBUF» SNATCH 

<CR> 

★ 

c 

* 

*<CR> 


it 

c 

* 



it 

9 * * * ^ 

L 

W* 1 

• m m m m m m m m m m m m m m m . 



c 

* 



it 

c 

* 

CALLING SEQUENCE: 


it 

c 

★ 



★ 

c 

* 

.R STRESS <CR> 


★ 

c 

* 



* 

L 


****"** *************** * ******** 


■ • • • ★ 

c 

it 



* 

c 

it 

PURPOSE: 


* 

c 

it 



it 

c 

it 

A MICROCOMPUTER - SASED DATA ACQUISITION AND CONTROL 

it 

c 

* 

SYSTEM FOR CARDIOPULMONARY 

STRESS TESTING. 

* 

c 

♦ 



★ 

c 

************************************* ******************** ********** 

c 

m 

******************************************************************* 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c 66 
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1 0001 
0002 
0003 

1 0009 
0008 
0006 
0007 

I 

0008 

r 

V 

“0009 

.-0010 

!; . 

0011 

5-0012 


! 0013 
"0019 
..0015 
0016 


I '° 017 

.-0018 
I 0019 
1 0021 
0023 
; 0024 
! .0025 

, 0027 

i 0028 

4 0029 
0031 
10033 


t-0039 
i 0035 
‘ 0036 


C PROGRAM { PROCESS# VERSION 2.0 29 AyG. 1979 

C FUNCTION S PUN CAROIOPULMCNARY STRESS STEST 

C 

INTEGER maJREV,RINREV 
TNTE6ER 0 R 0 UT 8 #CPlNe#TESTYP 
INTfcGER*a IN, OUT 
COMMON /P0ATA/ICATA(1536) 

DATA IN/ # IN V#OUT/ # OUT */ 

COMMON/X/MO(2«) 

OATA MD/*JA # #'N # ,»FE # # # e % , MA% , R ','AP',»R », 
a»MA*,»Y ','JU»#'N '#'JU'# # L ', # AU'# # G \ , 3E*#*P '# 

8 # 0C # # # T * » 'NO ' » ' V * # *0E * # 'C '/ 

EQUIVALENCE (IDATA(13)»MAJHEv), (ICATA(U)#MINREV) 

C— SETS THE MAJOR ANO MINOR REVISION NUMBERS 
C FOR THIS VERSION OF CVDAS 
MAJREVS2 
MIMREVsO 
C 

C— 0RV11 PARALLEL INTERFACE ADDRESSES: 

OROUTRs "167772 t " OUTPUT BUFFER (KATHY'S DRAI.DPBI) 

DRINBs "167779 l " INPUT SUFFER (KATHY'S DRAO#DRBQ) 

C THE LOW ORDER TfcC BITS OF CRCSR WILL BE DINGLED 
C BY RROCES FOR CALIBRATION 

C 

C ..... 

C— LOCAL PARAMETER INITIALIZATION: 

C 

C SET ALL PUSHBUTTON eiT PATTERNS 

ICALPB="1 
IFVCPB*"100 
IRSTP6="2 
I£NOTr»aO 
C 

C— FOLLOWING SU8R0UINE DATA INPUTS SUBJECT DATA AND CERTAIN OTHER INFO 
C 

CALL DATA(IN) 

c switch analog interface tc appropriate test type 

TESTYPal 

IF(IDATA(12).EG.2)TESTYP=0 

IF(IDATA(12).EG.3)TESTYPs2 

TESTYP*256*TFSTYP 

call IPOKE(DROUTB#TESTYP) 

IF(IDATA(«3).GT.0)GC TO 1000 
C TURN ON CAL LIGHT 

CALL LIGHT ("91 ) 

200 IRESsIPEEK(ORINB) 

IF(IENCT.EG.IRES)GC TO 2000 
IFdCALPB ,NE. IRES) GO TC 200 
300 CALL CAL 

D TYPE 1 

C 1 FORMAT ( * AFTER CAL') 

I0ATA(a3)sIDATA(U3)M 
CALL OATA(OUT) 

1000 CONTINUE 
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PA6F 002 


0037 

0036 

0039 

0090 


0092 

009a 

0096 


0098 

0050 


005! 

0052 

0053 


0 TYPE 2 

02 FORMAT ( * AFTER 1000') 

C 

C--TURN ON APPROP I A TE LIGHTS. 

C 

CALL LIGHT("193) 

IRES*0 

IRESsIPEEKCDRINE) 

IF(IRES.EQ.IENOT)GO TO 2000 
C 

C— CHECK WHICH ONE IF SO AND OC wH AT IS REQUESTED: 

C 

IF ( IC ALPS .EQ.IKES) GO TO 300 {REPEAT CALIBRATION 
IPUFVCP8 .EQ.IRES) CALL PFT { FORCED VITAL CAPACITY TEST 

IFdRSTPB .EQ. IRES) CALL EX {EXERCISE TEST 
D TYPE 3 

03 FORMAT ( ' AFTER EX') 

IFCIRSTPB .NE. IRES) GO TC 1000 

2000 CONTINUE 

0 TYPE 9 

09 FORMAT ( ' AFTER 2000') 

CALL IP0KE(DROUT8#0) 

CALL QATACOUT) 

STOP 


I 


FORTRAN 

IV 

storage map 

NAME 

OFFSET 

ATTRIBUTES 

DROUTB 

00002 a 

INTEGEH*2 

VARIABLE 

DR1NB 

000026 

INTEGERS 

variable 

TESTYP 

000030 

INTEGER*? 

variable 

IN 

000006 

INTEGERS 

variable 

,OUT 

000012 

INTEGERS 

VARIABLE 

1CALHB 

000032 

INTEGER*2 

VARIABLE 

IFVCP6 

00003 a 

INTEG£R*2 

VARIABLE 

IRSTP8 

000036 

INTEGER*2 

variable 

IENDT 

ooooao 

INTEGER*2 

variable 

DATA 

000000 

REAL*a 

PROCEDURE 

IPOKE 

000000 

INTEGER*? 

PROCEDURE 

LIGHT 

000000 

INTEGER*? 

PROCEDURE 

IRES 

0000a? 

integer*? 

variable 

IPEEK 

000000 

INTEGER*2 

PROCEDURE 

CAL 

000000 

REAL*4 

PROCEDURE 

PFT 

000000 

RE AL*a 

PROCEDURE 

Ex 

000000 

REAL*a 

PROCEDURE 

COMMON 

BLOCK /PD AT A/ LENGTH 006000 

IOATA 

ooocoo 

InTEGE»*2 

ARRAY (1536 

MAJPEV 

000030 

INTEGER*2 

variable 

f MINREV 

00003? 

INTEGER*2 

variable 

•COMMON 

BLOCK /X/ 

’ LENGTH 000060 

MO 

000000 

INTEGER*2 

array (2a) 
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C« SUBROUTINE INI T I (VERSION 2.0)# USED TC SET THE TIMERS# COUNTERS# 
C— & FLAGS USED IN THE AQISR INTERRUPT ROUTINE. 

C— 


0001 

SUBROUTINE IMTI 

0002 

INTEGER 8PCNT # BPCNT I # BPTIRE 

0003 

INTEGER CrtLCNT#AHRCNT#AHR,C*L#CSPD#CSBP#CDBP 

0004 

INTEGER AHR1 

#CNL1#CSP01,C8BP1#C0BP1 

0005 

INTEGER COUNT #CNT10#CNT30#SECS#SECS30#GASOSP 

0006 

INTEGER FLRCNT #FLRFLG#EXRCNT# EXHALE 

0007 

COMMON /ACCOM 1/IDUM 1(34) 

OOOS 

COMMON/TIMCNT/COUNT,CNT10#CNT30#FLRCNT#FLRFLG#£XHCNT 

0009 

equivalence 

(ICLMI(1)#GASCSP)#(I0UM1(10)#AHRCNT) 

0010 

EQUIVALENCE 

(X0LMK2), EXHALE) 

0011 

EQUIVALENCE 

(IDLM1(14),AhR),(I0UM1(15)#AHR1) 

0012 

EQUIVALENCE 

( ICL'Ml ( 16) »C*L ) # (IDUMl (17)#CWL1) 

0013 

EQUIVALENCE 

(ICLM1(18)#CkLCNT)#(I0UM1(28)#SECS) 

0014 

EQUIVALENCE 

(I0LM1(19),8PTImE)#(I0UH1(22)#BFCNT1) 

0015 

equivalence 

(ICLMl(20),CSP0)»f IDUMl (21 )#CSP01) 

0016 

equivalence 

(IPLMl(23)#CSSP)#(I0UVl(24).CSePl) 

0017 

EQUIVALENCE 

(ICLMl(25)#CCBP)#(IDuMl(26)»C08Pl) 

0018 

EQUIVALENCE 

(I0UM1(27)#BPCNT) 

0019 

FQUIVAlENCE 

(ICLMI(29).SECS30)#(ICUM1(32)#AhL) 

0020 

equivalence 

(IDLM1(33)#AKL1)#(ICUM1(34),AhlCNT) 

0021 

EXHALElO 


0022 

0PTI M E*55O 


0023 

BPCNTlaO 


002« 

8PCNT«10 


0025 

AHP*0 


0026 

AhR1»0 


0027 

CHL»0 


0028 

CWL1*0 


0029 

CSPD«0 


0030 

CSP01*0 


0031 

. CSBP*0 


0032 

CSBP1*0 


0033 

COSPsO 


0034 

COBPISO 


0035 

COUNT* 1 0 


0036 

CNT10*10 


0037 

CNT30*30 


0038 

EXHCNTaO 


0039 

CwLCNTaO 


0040 

4HRCNT*0 


0041 

SECS*0 


0042 

SECS30*0 


0043 

GASOSPaO 


0044 

AHL*0 


0045 

AaL1*0 


0046 

ahlcnt *0 


0047 

RETURN 


0048 

END 
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I 

m 

i 

I 

NAME 

OFFSET 

ATTRIBUTES 

i 

T 

COMMON 

BLOCK /A|)CO*t/ LENGTH 000106 

5 

I 

IOUMi 

000000 

INTEGER*? 

ARRAY (36) 

r 


GA3DSP 

000000 

INTEGER*2 

variable 

I 

T 

AHRCNT 

000022 

INTEGER*? 

variable 

I 

EXHALE 

000002 

INTEGER*? 

variable 

E . 


AHR 

000032 

INTEGER*? 

VARIABLE 

1 

■*» 

AMR I 

000036 

INTEGER*? 

VARIABLE 


1 

CAL 

000036 

INTEGER*? 

variable 

l 

i 

« 

Cwli 

000060 

INTEGER*? 

variable 


CNLCNT 

0000«2 

integer*? 

variable 


r 
1 * 

SECS 

000066 

INTEGER*? 

VARIABLE 


8PTINE 

000066 

integer*? 

variable 

; 


BPCNT1 

OOOOS? 

INTEGER*? 

variable 

* * 

CSPD 

000066 

INTEGER*? 

variable 


4 

CSPDt 

000050 

INTEGER*? 

variable 

1 

1 * 

CSBP 

000056 

INTEGER*? 

variable 

f 


CSBPI 

000056 

INTEGER*? 

VARIABLE 

; 

% * 
1 

COBP 

000060 

lNTbGER*2 

variable 

■ 

1 

* * 

COBP 1 

000062 

INTEGER*? 

variable 



BPCNT 

000066 

INTEGER*? 

variable 


=rp 

3EC330 

000070 

INTEGER*? 

variable 



awl 

000076 

REAl*6 

variable 


m - 

AWLl 

000100 

REAL*6 

VARIABLE 



AWLCNT 

000102 

RE AL*6 

variable 


r 

4 . 

COMMON 

BLOCK /T I M CNT/ LENGTH 000016 



COUNT 

000000 

INTEGER*? 

variable 


! 

CNTIO 

000002 

INTEGER*? 

VARIABLE 



CNT30 

000006 

INTEGER*? 

variable 



FLRCNT 

000006 

integer*? 

VARIABLE 


T 

flrflg 

000010 

INTEGER*2 

variable 


sms 

EXHCNT 

000912 

INTEGER*? 

VARIABLE 


r 


i 

i 
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0001 


SUBROUTINE OATA(ICSTAT) 



0002 


LOGICAL*! IF ILE ( 1 2 ) 



0003 

f* 

INTEGER FILE(A) 



0009 

w 

c 

INTEGER*** IOSTAT #CUT 



0005 

c 

c 

COUPON /POATA/ IPATNT(l53fc? 1 IMS IS PATIENT 

data. 

0Q06 

c 

DATA OUT/ 'OUT '/ 



0007 

f* 

DATA IFILE/'D%'X','1',' '#' ',' ',' ',' 

• t 

9 


oooe 

w 

IF( IGSET (2) .NE ,C ) STOP 'GUELE ALLOCATION 

FALIURE' 

0010 


IF(10STAT.EO.CUT)GO TO 10 



0012 


TYPE t 025 



0013 

1025 

FOWMAT('S PLEASE TYPE PATIENT DATA FILE 

M*E 

(up TO 6 SYMBOLS):' 

0019 


ACCEPT 1030,UPlLE<I),I«9,9) 



0015 

1030 

C 

1“ 

FORMAT (6A 1 ) 



0016 

w 

c 

10 

CONTINUE 




c 

C— CONVERT ASCII FILE M*E TO RADIX 50 
C 

0017 IFUCSTAT.NE.CUT) CALL IRAC50(12.IFILE»FILE) 

C 

C— OPEN FILE* 

C 

0019 ICNAM alGETCO 

0020 IF (ICHAN .LI. 0) STOP 'KC AVAILABLE CHANNEL* 

0022 IF (L0UKUP(ICHAN,FILE) .LT. 0) STCP 'FILE ALLOCATION FAILURE' 


C 

C--NOH RE AOS CH WRITES DATA: 
C 


0029 


IFUOSTAT.EO.CLT) GC TO 1050 


0026 


IF(IREACM1536,IPATNT,0.IC*AN) .LT.O) 

STOP 

002S 


GO TO 1060 


0029 

1050 

CONTINUE 


0030 


IF(I*RITw(l536,lPATNT,0#ICHAN) .LT.O) 

STOP 

0032 

1060 

continue 


0033 


CALL CLOSECUCHAN) 


003a 


netu°n 


0035 


END 



'DISK R£ AT FRROR' 
'DISK WRITE FfiPCP ' 
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0001 


0002 

0003 

0004 

0005 

0006 
0007 

oooe 

0009 

0010 
0011 
0012 

0013 

0014 


0015 


0016 

0017 


0016 

0019 

0020 
0021 
0022 


0023 


c— 

c— 

c~ 

c 

c 

c 

c . 
c 

c— 

£>“ 

c— 

c*»* 

c— 


c 

c 

c 

c 

c 

c 

c 


c— 

c— 

c— 
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SUBROUTINE. CALIBRATION, VERSION 2.0 
WRITTEN BYi ROY A. REED 
OATE OCT 13#\ 1976 

REWRITTEN flYl WILLIAM G. CROSIER 
DATE : AuG 24, 1979 
MODIFIED BY * ABHIJIT GADGIL 
DATE: DEC# 197*1 

SUBROUTINE CAL 


SET UP VARIABLES 

LOGICAL* 1 IANS# VES#NO 

INTEGER SEX#SSN>:(3) #UN1GNQ(2) #RETNO 

INTEGER CPID#CATE(3)#NAME(14) 

INTEGER GASBUF,ADCTBF,IDATA 
INTEGER GASDSP,fXHALE#SVThRS#FVC#PFT 
INTEGER HRTHRS,(WLCNT#AHRCNT 
INTEGER BPTIME, 6 PCNT #BPCNT1 
INTEGER LFLSHfi #F ILE (4) 

INTEGER PCSR#PCCB#PCS#PCC 
INTEGtR DROUTB#CRlNe,DRSB 
. INTEGER *4 CSPD#AHP,C*L#CSeP#COBP 
REAL SLPS(9)#SLFST(2)#SEP 
REAL ARBTMP, A?»ePR5 
REAL A02# AN2# ACC2 

REAL HCSV#LCSV#HCCX#LC0X#hCN2#LCN2#HCCC2#LCCC2 

REAL hCHR#LCHR#HCWl#LC*L#HCAS#LCAS#HCSBP#LCS8P,HCCBP»LCD6P 

REAL R0ATA(24),CAL6UFi22) 

REAL LSV0L#L02#LN2,LC02 
REAL HSVOL,H02#*N2#bC02 

real lhr,lwl#las#lsbp#ldbp 

REAL HHR#HWL#HAS#HSBP,HDBP 

REAL REFVAL(2#9)#CAlDAT(2,4) ,TEWP#CNT 

REAL*8 LHA#L0W,-IGH#AM8#CHAN(9J 

SET UP COMMON AREAS 

COMMON /ADCQM/JCtAN (9) 

COMMON /P0ATA/ICATAC1538) 

COMMON /GASCGM/GASBLFC2000) 

COMMON /ADC0M1/ADCTBF(3«) 

C0MM0N/X/M0C24) 

SET UP EQUIVALENCE STATEMENTS 

EQUIVALENCE (ACCTeP (1)#GASCSP)# (ACCT8F(2 ).cXHALE) 

%, (A0CTBF(3) , SVTMRS ) # (ADCTBFC4) ,FVC) 

X# ( A0CTBF(8) ,PFT) # (ACCTBF(IQ) # AhRCNT) # (ADCTBF ( 1 1 ) ,HRTHPS) 

X, (A0CTBF(14),At-F) 

X# (ADCTBF(lb),C*L) 

X, (ADCTBF(18) ,C/.LCNT) , (ACCTeF(19) ,BPTIM£) 
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PA6F 00? 


0020 


0025 

0026 

C 

C 

C 

C 

C 

C 

C 

0027 

C~ 
C— 
C — 

00?8 

0020 

0030 

0031 

0032 

0033 
0030 

C 

C 

C 

0035 

0036 

0037 
0035 


X,(A0CT|F(20),CSPD) 

X»(A0CT8F(22)»8PCNT1)*(ACCTPP(23)#CSBP) 

X# ( A0CT8F (25) »CDBP) 

X,IADCTBF(27),BPCNT) 

X# ( A0CT8F (30) , LFLSHR) 

EQUIVALENCE < TCATA ( 2) ,SEX ) # ( 10 ATA { 3) , SSNO ( l ) ) 
X,(IDATA(7),UNlGNOin),(lCATA(9),RETKO) 

%,(IOATA(10)»CPJD) 

X,CI0ATA(26)#NANECl)) 

X,(I0ATA(00),DATE(U) 

EQUIVALENCE (I0ATA(73),RCATA.(m 
EQUIVALENCE (IDATA(5O),AR0TNP), C IDAT A (573 ,ARBPRS) 
EQUIVAL£NCE(CAL6UF( D.HCSV), (CALBLF(2)#LCSV) 
X,(CAL8UF(3),HCCX),(CAL8LF(a),LC0X) 

X,(CALBUF(5),HCN2), CCALBUFC6),LCN2) 
X,(CAL8UF(7),HCC02),CCAL6LF(8),LCCC2) 

X,(CALBUFC9),HCHR), (CALBUF(IO) ,LCHR) 

X,(CAL8UF(19),HCS8P), (CAL0UF (20) ,LCS0P) 

X,(CAL3UF(2l),HCC8P), (CALeUF(22),LCCbP) 

EQUIVALENCE (CALBUF,REFVAL) 

SET UP OATA VALUES 

D'ATA SLPS/. 0025, .0300, .0205# .0 025, .0720, .0757 , . 0209, .0623, .0620/ 
OATA SLPST/O. 01, 0.0025/ 

OATA SEP/. 02/ 

DATA YES/1HY/,N0/1NK/ 

DATA ORCUTB/*' 1 67772/, 0RIN8/ H 16777 0/,DRSR/" 167770/ 

DATA PCSR/"172500/,PCC8/" 172502/ 

DATA PCS/"113/,PCC/"100/ 

OATA *0/'JA','N * , *FE * , # 8 ','MA','R ','AP','R ', 
a *MA», # Y ','JU','N # ,*JU*, # L ','AU','G ','SE',’P 
d 'OC ' , ' T »,»NO',*V ' , # 0E * , *C '/ 

DATA LOW , HIGH , APB/ * LCfc ',' HIGH ', 'AMBIENT '/ 

OATA CHAN/'SP. VOL.*,* GXYGEN * , 'NITROGEN ' , ' C02 ', 

i 'HT.RATE', 'WL/ELEV. ' , * SPEED ',' SYS. BP', 'DIAS. BP'/ 
IFCI0ATAC12) .EG. 2) SIPS ( 6 ) =SLPST ( 1 ) 

IF(I0ATA(12).EG.2) SLPS ( 7 ) *SLPST (2 ) 


C-- 

C— READ IN THE CALIBRATION PILE, WHICH CONTAINES THE ST AND ARP DATA 
C— USED IN CALIBRATION OF SLOPES ANC INTERCEPTS. 

C— 


oooi 

CALL IRA050(12, 'OXOCALCONCAT 

',FILE) 


0002 

ICHANsIGETCO 

1 GET A I/C CHANNEL 

0003 

IFCICHAN.LT. OJSTOR 'CHANNEL 

ALLOCATION FAILURE IN CAL' 


0005 

IF(LOOKUP(ICHAN,FILE) .LT.OJSTOP 'FILE ALLOCATION FAILURE 

IN CAL' 

0007 

IF(IR£ADw(OU,CALBuF, 1 ,ICHAN) 

, L T . 0 ) STOP 'DISK RE AO ERROR 

IN CAL' 

0009 

IF(I0ATA(12).EG.2)GC TO 5 



0051 

REFvALCl,7)3CAL6UF(l5) 

IBIKE SPEED HIGH 

REF. VAL’ 

0052 

REFvAL(2,7)sCALPUF(16) 

1 LCw 

REF. V A L U t 

0053 

GO TO 6 



0050 5 

CONTINUE 



0055 

REFvAL(l,6)sCAL8UF(\3) 

ITRFAOVILL ELEVATION 

HIGH 

0056 

REFVAL(2,6)sCALeUF(10) 

i 

• 

L 0 «v 
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0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 


0067 

0068 

0069 

0070 

0071 


0072 

0073 

0074 

0075 

0076 


0077 

0078 

0079 

0080 
0081 
0082 


0083 

0084 

0085 

0086 

0087 

0088 


0089 

0090 

0091 

0092 

0093 

0095 

0096 

0097 


6 


7 

C- 

c« 



c 

c 

c 


c 

c 

162 


C — 
C — 

262 


265 

C 

C 

C 


REFVAL(l,7)sCALPUF<17) 

ITPEAOMILL SPEED 

HIGH 

REFVAL(2#7)*CAL6UF(18) 

l 

LOfc 

CONTINUE 

REFVAL(l#8)sCALeuF(19) 

1SBP 

HIGH 

REFVAL(2#8)sCALBUF(20) 

1 

LOH 

REFVALCl#9)aCALeUF(21 ) 

1DBP 

HIGH 

REFVAL(2#9)aCALPUF(22) 

. i 

LOH 


CONTINUE 

IFUDATAUn.EG.l) GO TO 10 

INITIALIZE PRCGRAMMA8LE GAIN CODE BITS IN A/D COMMAND 

WORD ARRAY (LATER USED BY INTERRUPT SERVICE ROUTINE) 

IADa"10 

DO 9 ICH*1 #9 

JCHANCICH)sIAD 

IADsIA0t"400 

CONTINUE 

INITIALIZE PARAMETERS 


PFT*0 

FVC*0 

HRTHRSs-2048 

SVTMRSs-2048 

LFLSHRs"1 1 SET CAL LIGHT TO FLASH 

COLLECT LO* CAL DATA 


MODEsl 

ISUB=2 

DELAYsS.O 

LHAsLOW 


ASSIGN 162 TO IRETRN 
GO TO 5000 l 


1 SET LON CAL MODE 

1 USE SECOND ROA OF CAlDAT ARR 

SET DELAY AT 5 SECONDS 

l SET ALPHA IDENTIFIER FOR CAL 

1 ASSIGN RETURN LABEL 

GO TO CAL DATA COLLECTION/AVEPAGING ' 


COLLECT HIGH CAL DATA 

M0DE*2 

ISUflsl 

DELAYS5.0 l 

LHAsHIGH 1 

ASSIGN 262 TO IRETRN 
GO TO 5000 l 


1 SET HIGH CAL MODE 

l USE FIRST ROA OF CALDAT ARRAr 

SET DELAY AT 5 SECONCS 

SET ALPHA IENTIFIER FOR CAL *00E 

1 ASSIGN RETURN LABEL 

GU TO OATA COLLECTION /AVERAGING ROUTI' 


CALCULATE THE SLOPES AND Y INTERCEPTS FOR ALL 9 CHANNELS 
Ks7 

00 265 ICHAN*l,9 
RDATA(K)s0.0 

DEN0MsCAL0AT(l,ICRAN)-CALCAT(2,ICRAN) 

IF(DENO“.NE.O.O)ROATA(K)a(REFVAL(l* ICHAN ) -REFV AL (2 » IC*AN) J/DENQM 
KsK+1 

RDATA(K)sR£FVAL( 2, ICHAN)-RDATA(K-n*CALDAT(?,ICHAN) ! Y-INT. 

KsK + 1 


COLLECT AV3IENT AIR DATA 
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0098 

0099 

0100 
0101 
0102 
0103 


0109 


0105 

0106 


0107 

0100 

0109 

0110 
0111 


0112 


0113 

0119 

0115 

0116 
0117 

one 

0119 

0120 

0121 

0122 

0123 


0124 


M00E*3 
ISUBal 

DELAY*20.Q i 

LHAsAMB 

ASSIGN 370 TO IRETRN 
GO TO 5000 1 

C— PH20*VAPOR PRESSURE OF WATER AT AMBIENT 
C— PRESSURE ANC TEMPERATURE. 

C mm 

370 PH20*. 0369*AM8TMP* AMBTMP- . 90 i2*AMBTMPtl0.76 

C— 

C— STPO*F ACTOR TO AC JUST VOLUME AT AMBIENT CONDITIONS 
C— TO VOLUME AT STANDARD TEMPERATURE AND PRESSURE (DRY). 
C— NORMAL 80DY TEMPERATURE IS 310 OEGPEES KELVIN 

c— 

8TPS=310.0/(AMeTMP+273.0) 

STPDa(273.l6/(AMBTMPt273.16) )*(CAMPFRS-PH20)/760.) 


1 SET ambient air MOOE 

1 USE FIRST ROW OF CALOAT ARRAY 

ScT DELAY 20 SECONDS 

l SET ALPHA IENTIFIEP FOR CAL M CDE 

1 ASSIGN RETURN LABEL 

GO TO DATA COLLECTION/AVERAGING ROUTINE 



C— 
C — 
C— 
C— 

C~ 

C— 

C~ 


999 

1000 


1010 

1020 


1030 


1090 


CALCULATE THE PERCENTS 

ROATA(3)=CALDAT(1,2)*RDATA(9)+RDATA(10) 

R0*.TA(9)sCALDAT(1,3)*RDATA(1 D+RDATAC 12) 

RDATA(5)sCALDAT(l,9)*RDATA(l3)*RDATA(19) 

R0ATA(1)=STP0 

RDATA(2)sBTPS 


1AM-BIENT 02 
l AMBIENT N2 
1 AMBIENT C02 
iSTPD FACTOR 
IBTPS FACTOR 


switch analog interface to normal mode 

CALL .IP0KE(DRSR,0) 

WRITE REPORT 

IMM=2*DATE(1) 

IM«Ml = IMV-l 
TYPE 1000 

F0RMAT(//32X, 'CALIBRATION REPOR T ' . /36X , 'CD AS - V2.0') 

TYPE 1010#CPID, (UMGNOCI) , 1*1,2) ,RETN0,0ATE(2) ,M>D(Imm1) , 
SM0(IMM) # DATEC3) 

TYPE 1020, (NAME (I), 1*1, 19), SEX, (SSNO(I) ,1*1,3) 

F0RMAT(//,5X, 'CFID ro.: ' , 15 , 28X , 'LMOUE NO.: 'A2,lu,// # 

X5X, 'RETEST NO.: ' , 1 2 , 2ex , 'DATE : ' , 12, 1 X, 2 A2 , 12 , // ) 

F0RMAT(5X, 'SUBJECT NAME: ' 1 9 A2 , IX , 'SEX : ',A2,//, 

X5X,'S0C. SEC. NC.: ',13, '-',12, '-*,19) 

TYPE 1030 

F0PMAT(//,5X, 'AMBIENT CONDITIONS: ',23X, 'CALIBRATION FACTORS:' 
X,//,90X, 'CHANNEL SLCPE Y-INT.') 

TYPE 1090, AM6TMP,RDATA(7) ,RCATA(8) 

X,AMBPRS,RUATA(9) ,RDATA(10) 

X, (WDATA( (1-9) /2),RCATA( I ),RCATA(Ifl) ,1*11,19,2) 

X, (RCATA(I),Is2i,29) 

F0RMAT(/,5X,'TEMP.: ' , F 9 , 1 , ' C',lfcX,'SP.V0L',5x,F9.5,3X,F8.3, 

X/,5X, 'PRES.: ',F5.1, ' mm HG', 12X, '02 ',F9.5,3X, 
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0125 

0126 
0128 

0129 

0130 

0131 

0132 

0133 

0135 

0136 

0137 
0136 
0139 

0190 

0191 

0192 

0193 


0199 


0196 


0197 


0198 

0199 

0150 

0151 

0152 
0159 

0155 

0156 

0157 


2010 

3000 


3100 

3150 

C 

C 

C 

C 

C 

C 

C — 

C — 

C — 

c— 

c-« 

c— 


c 

c 

c 

c 

c 

5000 


c 

5006 

5007 

5006 


FACTORS **F5.3, 16X, *C02 


*#F4*l,*X* 


XF8.3#/#5X,*3TP0 FACTOR* • ,F5.3, 16X, »N2 
X/,5X,*BTPS 
%/,5X,<02* 

%/,5X,*N2* 

X/,5X,'CC2* 

X/,40X,»$9P 
X/,40X,*Q8P. 

IRA»1 


17X, 

# ,F«. !»•*•, 17X, 


•HR 

’ELEV/WL 


'SPEED 

# ,F9.5»3X,F8.3* 

SP9.5,3X,F8.3) 


*#F9,5#3X#F6.3 

*,F9.5,3Y,F8.3 

* »F9.5,3X,F8«3» 
*,F9.5,3X,F6.3, 

* »F9.5, 3X ,F9 .3, 


IF(I0ATA(ll).EQ.2)IRAsU419 

LINE*29 

00 3000 IC*1 ,9 _ 

!3s(IC-l)*2+7 

SMAX*SLPS(1C) *IRA*(SLPS (IC)*IRA*SEP) 
SMImsSLPS(IC)*IRA-(SLPS(IC)*IRA*SEP) 

IFCRDATACIS).LT.SKAX.ANO.RCATA(IS) .GT.3MIN) GO TO 3000 
P£R£Rs((RDATA(lS)-SLPS(IC))/SLPS(IC)) *100.0 

LlNE*LlNEt2 

TYPE2010, CHAN(IC),PERER 

FORMAT (/IX, A6,*. CAL IB. CUT CF RANGE BY # ,F6.1, '%•) 

CONTINUE 

LINES66-LINE 

00 3100 I L s 1 ,LINE 

TYPE 3150 

FORMAT (IX) 


SET TIME OF DAY TIMER IF SYSTEM CLOCK SHOWS LESS THAN 
5 HOURS (18000 SECS) SINCE MIDNIGHT OP SYSTEM BOOT, OR 
IF wE ARE RUNNING PLAYBACK MODE (SINCE SYSTEM CLOCK TIME 
WILL NOT BE TEST TIME). 


IF (SECNOS(0.),LT.ieO00..CP.I0ATA(il),EO.2) CALL TIMSET 
SET LIGHTS ON FRCNT PANNEL 


CALL LIGHT ( ** 1 ) 


ALL DONE RETURN TO PROCES 
RETURN 


ROUTINE TO COLLECT & AVERAGE DATA FROM A/D CONVERTER 
FOR CALIBRATION 

INITIALIZE COUNTERS, TIMERS, & FLAGS 

CALL IMTI 

8PTIM£*0 

BPCNTS90 

8PCNT 1*90 

IS TEST BEING RLN IN REAL TIME(LIVE) ? 

IF (IOATA(ll).EC.l) GO TO 5010 
TYPE 5007, LHA 

FORMAT (/* IS TAPE READY FOR ',A7,'CALIB. (Y OR N ) ?»,$) 
ACCEPT 500B, IANS 
FORMAT U1 ) 
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0158 

0160 

0161 

0162 

0163 

0164 

0165 

0167 

0168 
0169 

0171 

0172 


0173 

0174 


0175 

0176 

0177 

0178 

0179 

0180 
0181 

0182 


0183 

0185 

0187 

0189 

0191 

0193 

0195 

0196 
0198 
0200 
0201 

0203 

0204 

0205 


0206 

0207 

0206 


IF (IANS. NE. YES) GO TO 5006 
5010 CONTINUE 

CALL LIGHT (M) l TURN ON CAL LIGHT 

CALL IPOKE (DRSR »MQOE ) 1 SENO CAL SIGNAL TO LAB EQUIP. 

TI=SECN0S(0.0) 

5015 OELTA«SECNOS(TI) 

IF (OELTA.LT, DELAY) GO TO 5015 1 WAIT FOR SIGNALS TO STABILIZE 
call IPOKE (PCCB,PCC) l SET PROGRAMMABLE CLOCK FOR 100 

CALL IPOKE (PCSP,PCS) 1 START CLOCK FOP DATA ACQUISITI 

5020 IF (8PCNT1 .GT.O) GO TO 5020 l WAIT UNTIL 4 SEC. OF DATA IS COLLECTED 
CALL IPOKE (PC8R,0) 1 STOP CLOCK 

CALL LIGHT Cl) l TURN ON CAL LIGHT 

C DO 5051 1*1, GASDSP,0 

C TYPE 5050, I, (GASBLF (J),J*I,I+7) l TYPE GAS BUFFER CONTENTS 

5050 FORMAT (/ 1 X, 14, .* ) * , e ( IX , 16 ) ) 

5051 CONTINUE 
C 

C CALCULATE AVG. VALUE FOR EACH OF THE 9 CHANNELS 
C _ 

00 5080 Ksl,9 

5080 CALDAT(ISUB,K)sO.Q i INITIALIZE VALUES FOR SUMMING 

SAMPsFLOAT(GASCSP)/4.0 
DO 6010 K*t ,4 

DO 6000 IAV*1, GASCSP , 4 1 CHAN. 1-4 ARE GAS CHANNELS 

6000 CALDAT(ISUB,K)*CALCAT(ISUe,K) ♦ FLOAT (GASPUF ( IAV tK- 1) ) 

6010 CALDAT(ISUB,K)sCALDAT(ISUB,K)/3AMP 
D TYPE 6050, LHA.GASCSP, SAMP, (CALDAT( ISl'B,K ) ,K = 1 ,4) 

6050 FORMAT ( / IX , A8, * CAL VALUES'/* GASDSP SAMP SP VOL *,6X, *02' , 

3 8X, *N2',7X, *CC2'/I10,5F10.2) 

C 

C CALCULATE AVERAGES FOR CHAN. 5-9 

C 

IF(IAJFLT(AHR,TEMP).EQ.-2) TYPE 9999 
IF(AHRCNT.NE.O) C ALD A T ( I SUB , 5 ) *TEMP/FLOA T ( AHRCNT ) 

IF(IAJFLT(CWL,TEMP) .EQ.-2) TYPE 9999 

IF (CWLCNT . NE . 0 ) C ALD AT ( ISUB, 6) *TEMP/FLGA T (CWLCNT ) 

IF(IAJFLT(CSPD,TEVP) .EG.-2) TYPE 9999 

IF (CrtLCNT.NE.O ) CALDAT ( ISUB , 7 ) =TENP/FLO AT ( CWLCNT ) 

CNT*FLOAT(8PCNT-0PCNT1) 

IF(CNT.EQ.O.Q) GO TC 6055 
IF(IAJFLT(CSBP,TEMP).EQ.-2) TYPE 9999 
CALDAT(ISU8,8)*TEMP/CNT 
IF(IAJFLT(CD8P,TEMP) .EQ.-2) TYPE 9999 
CALDAT (ISU8,9)sTEvp/CNT 
6055 CONTINUE 

D TYPE 6060, AHRCNT, CWLCNT, BPCN T, BPCNT 1, CNT, (CALDAT (ISUB,K), k*5, 9) 

6060 FORMAT (/' AHRCNT CWLCNT RPCNT RPCM1 CN T ' /4 1 7 , F7 . 2/ 
a 5X, 'HR',8X, 'wL',6X, 'SPEED',6X, 'SBP',7X, 'D8P'/5F10.2) 

C 

GO TO IRETRN ! RETURN 

C 

9999 FORMAT!/, IX, 'CVERFLCW IN INTEGERS TO REAL CONVERSION') 

END 
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NAME 

OFFSET 

ATTRIBUTES 

i 


FILE 

000014 

INTEGER*2 

ARRAY (4) 


SLPS 

000024 

REAL*4 

ARRAY (9) 


SLPST 

000070 

R£AL*4 

ARRAY (2) 


CALBUF 

000100 

R£AL*4 

ARRAY (22) 


REFVAL 

000100 

REAL*4 ... 

ARRAY (2*9) 

VECTORED 

CALOAT 

000230 

REAL*4 

ARRAY (2,9) 

VECTOREO 

CHAN 

000340 

realms 

ARRAY C9) 


IANS 

002676 

LOGICAL*! 

variable 


YES 

000454 

L0GICAL*1 

variable 


NO 

000455 

LOGICAL*! 

variable 


PCSR 

.000464 

INTEGER*2 

VARIABLE 


PCCB 

000466 

INT6GfcR*2 

variable 


PCS 

000470 

INTEGER*2 

VARIABLE 


PCC 

000472 

INTEGER*2 

VARIABLE 


DROUTB 

000456 

INTEGER*2 

variable 


DRIN0 

000460 

INTEGER*2 

variable 


ORSR 

000462 

INTEGER*2 

variable 


SEP 

000450 

REAL*4 

VARIABLE 


TEMP 

002700 

R£AL*4 

VARIABLE 


CNT 

002704 

REAL*4 

VARIABLE 


LHA 

002710 

real*b 

VARIABLE 


LON 

000474 

R£AL*B 

VARIABLE 


HIGH 

000504 

RE AL*8 

VARIABLE 


A Mb 

000514 

REAl*8 

variable 


IRAD50 

000000 

INTEGER*2 

PROCECURE 


ICHAN 

002720 

INTEGER*2 

VARIABLE 


IGETC 

000000 

INTEGER*2 

PROCECURE 


LOOKUP 

000000 

INTEGER*2 

PROCEDURE 


IREAON 

000000 

INTEGER*2 

PROCECURE 


I AO 

002722 

INTEGER*2 

variable 


ICH 

002724 

INTEGER*2 

variable 


MOOE 

002726 

INTEGER*2 

variable 


ISUB 

002730 

INTEGER*2 

VARIABLE 


delay 

002732 

REAL*4 

variable 


IRETRN 

002736 

INTEGER*2 

variable 


K 

002740 

IMTEGER*2 

variable 


OENOM 

002742 

R£AL*4 

variable 


PH20 

002746 

REAL*4 

VARIABLE 


BTPS 

002752 

R£AL*4 

variable 


STPO 

002756 

REAL*4 

variable 


IPOKE 

000000 

INTEGER*2 

PROCECURE 


IMM 

002762 

INTEGER*2 

VARIABLE 


IMMi 

002764 

INTEGER*2 

variable 


I 

002766 

INTEGER*2 

variable 


IRA 

002770 

INTEGER*2 

variable 


LINE 

002772 

INTEGER*2 

VARIABLE 


IC 

002774 

INTEGER*2 

VARIABLE 


IS 

002776 

INTEGEH*2 

variable 


SMAk 

003000 

REAL*4 

variable 


SMIN 

003004 

RE AL *4 

variable 


PERER 

003010 

RE AL*4 

variable 


IL 

003014 

INTEGER*2 

variable 
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STORAGE MAP 


FORTRAN IV 


NAME 

OFFSET 

ATTRIBUTES 


SECMOS 

000000 

REAL*4 

PPOCECURE 

TIMSET 

000000 

REAL*4 

PROCEDURE 

LIGHT 

000000 

INTEGERS 

PROCEDURE 

INITI 

UOOOOO 

INTEGER*2 

PROCEDURE 

TI 

003016 

RfcAL*4 

variable . 

DELTA 

003022 

R£ AL*4 

VARIABLE 

SAMP 

003026 

REAL*4 

variable 

FLOAT 

000000 

R£AL*4 

PROCEDURE 

I A V 

003032 

INTEGER*2 

VARIABLE 

IAJFLT 

000000 

INTEGER*2 

PROCEDURE 


COMMON BLOCK /ADCOM/ 


LENGTH 000022 


JCHAN 000000 INTEGERS ARRAY (9) 
COMMON BLOCK /PDATA/ LENGTH 006000 


f If 

IDATA 

000000 

INTEGERS 

ARRAY 

(1536) 

1 f 

SEX 

000002 

INTEGERS 

VARIABLE 

| « * 

SSNO 

000004 

INTEGERS 

ARRAY 

(3) 

f ^ 

UNIQNO 

000014 

1NTEGER*2 

ARRAY 

(2) 

! \ 

RETNO 

000020 

INTEGER*2 

variable 

i ** 

CPID 

000022 

INTEG£P*2 

variable 

5- 

NAME 

000062 

INTEGERS 

ARRAY 

(14) 

i - * 

DATE 

000116 

INTEGERS 

ARRAY 

(3) 

j. Si 

ROATA 

000220 

REAL*4 

ARRAY 

(24) 


AMBTMP 

000152 

REAL*4 

variable 

! r 

AMBPRS 

000160 

RE Al*4 _ 

variable 

j ■ 

1 

COMMON 

BLOCK /GASCON/ LENGTH 

007640 

? * ,p “ 

i 

GASBUF 

000000 

INTEGERS 

ARRAY 

(2000) 


COMMON BLOCK / AOCOM 1 / LENGTH 000 1 0« 


AOCTBF 

GASDSP 

EXHALE 

SVTHRS 

FVC 

PFT 

AHRCNT 

HRTHPS 

AHR 

CWC 

CWLCNT 

BP TIME 

CSPO 

BPCNT1 

CSBP 

CDBP 


000000 

000000 

000002 

oooooa 

000006 

000016 

000022 

000024 

000032 

000036 

000042 

000044 

000046 

000052 

000054 

000060 


INTEGERS 

INTEGER*2 

INTEGERS 

INTEGER*2 

INTEG£R*2 

INTEGER<»2 

INTEG£R*2 

INTEGERS 

INTEGERS 

INTEGER*4 

INTEGER*2 

INTEGERS 

INTEGERS 

INTEGERS 

INTEGER*4 

INTEGER*4 


ARRAY (34) 

variable 

VARIABLE 

variable 

VARIABLE 

VARIABLE 

VARIABLE 

VARIABLE 

variable 

variable 

variable 

variable 

variable 

variable 

variable 

variable 


i 


FORTRAN IV _ 


STORAGE MAR 


NAME OFFSET ATTRIBUTES 

8RCNT 000064 INTEGERS VARIABLE 

LFISHR 000072 INTEGERS VARIABLE 

COMMON BLOCK /X/ LENGTH 000060. 

MO 000000 INTEGERS ARRAY (20) 
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PA6F noi 



i 

I 

I 

li 


I 

I 

I 

I 

I 
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0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

ooie 

0019 

0020 
0021 


c* 

o 


c- 

c* 

c- 

c- 

c- 

c- 

c- 

c- 

c« 

c- 

c- 

c- 

c- 

c- 

c- 

c- 

c- 

c 

c- 

c- 

c 

c- 

c 

c- 

c 

c- 

c 

c- 

c 

c- 

c 


FORCEO vital capacity SUBROUTINE, VERSION 2.0 
SUBROUTINE PFT 

SET UP variables 
INTEGER AGE 

IPATIENTS AGE ANC HEIGHT, TO bE USED 
1THE CALCULATIONS OP THE PREOICTC VALUES. 

integer cpio 

IPATIENTS CAROIOPULPLNARY IDENTITY MP6ER. 
INTEGER NAME(i«) 

IPATIENT *3 NAPE. 

INTEGER SSNO ( 3 ) 

IPATIENT *S SOCIAL SECURITY NUPSER. 

INTEGER DATE(3) 

IOATE THE TEST HAS CONDUCTED. 

INTEGER RETNO 
{PATIENT'S RETEST NUPBER. 

INTEGER UNIQNO (2) 

{PATIENT'S UNICUE NUPBER. 

INTEGER M,F,SEX 

1 SUBJECTS SEX TC BE USED IN CALCULATIONS. 
INTEGER ADCTBF (34) 

l COMMON AREA FOR A/0 COPPANO VARIABLES 
INTEGER GASBUF (2000 ) 
l A/0 COPPON DATA BUFFER. 

INTEGER GASDSP 
1 G AS BUFFER OISPLACEPENT 
INTEGER SVTHRS 

1SPIR0PETER VOLUPN THRESHCUD . 

INTEGER FvC 

1 FLAG (*-lFOR FORCED VITAL CAPACITY 
1EQUAL TO 0 FOR ALL OTHERS) . 

INTEGER PFT 
IFLAG *-l 
INTEGER PUSHES 

ICONTAINES l'S FCR BUTTONS THAT ARE 
i PUSHED * 

INTEGER PCSR 

1 ADDRESS OF THE PROGPAPARLE CLOCK 
1STATUS REGISTER. 

INTEGER PCCB 

! ADDRESS OF THE PROGRAPABLE CLOCK 
ICOUNTER SUFFER . 

INTEGER EXHALE 

IO0NE Flag SET BY the a/0 INTERRUPT 
{ROUTINE. 

INTEGER PCS 

i HAS The value TC BE PLACEC INTO THE 
ICLOCk status REGISTER. 
integer °cc 

{HAS THE VALUE TC PE PLACEC INTO THE 
•clock ccuntep buffer. 




I 


t 

L 
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0022 

0023 

002 a 

0025 


0026 

0027 

0026 

0029 

0030 

0031 

0032 

0033 
003a 

0035 

0036 

0037 

0036 

0039 

OOaO 

OOai 

00a2 


C-- 

c— 

C-- 

c— 

C-- 

c— 

c— 

c— 

c»* 

c— 

c— 

c— 

c— 

c 


c— 

c— 

c— 

c— 

c— 

c— 

C-- 

c— 

c« 

O- 

c»- 

C-- 

c— 

c— 

cc 

C-- 

c— 


C-- 


INTEGER OLO 

{VARIABLE TO HOLD THE OLO VALUE OF EXHAST. 

INTEGER 0R0UTB#CRIN6 

1VARI6LE8 THAT CONTAIN THE ACORESS OF THE 
10RU FARRELL INTERFACE CARC INPUT AND OUTPUT BUFFERS. 
REAL HlGRT # (iPTS 
{PATIENT'S HEIGHT IN CM. 

REAL SLOPE, YNTRCP 

1VARIEBLES THAT CONTAIN INFORMATION PASSED 
{THROUGH GENCQM COMMON BLOCK TO CALCULATE THE 
{SPIROMETER THRESHOLD. 

SET UP THE COMMON AREAS. 

C0MM0N/PDATA/IDATAU536) 

{SET UP THE COMMON BUFFER FOR PATIENT OATA 
{ALSO, CCNTAINES THE PATIENTS INFORMATION. 

COMMON /GASCOM/GASBLF 
{DATA BUFFER COMMON 1 AREA. 

COMMON /ADCOM 1/AOCTBF 

{COMMON AREA TC PASS COMMAND VARIABLES AND 
{CONSTANTS. 

COMMON/X/MO(2a) 

EQUIVALENCE (ICATA(65), SLOPE) 

1C0NTAINES THE SLOPE FROM CALIBRATION ROUTINE. 
EQUIVALENCE (ICATA(67)»YNTRCP) 

{CONTAINES THE Y-INTERCEPT FROM THE CALIBRATION ROUTINE. 
EQUIVALENCE! ICATA! 3) #SSNC(1) ) 

{THESE THREE OATA hORDS CONTAIN 

{THt PATIENT'S SCCIAl SECURITY NUMBER, 

EQUIVALENCE (I0ATA(7),UNICNC(1)) 

{THIS DATA #ORC CONT A I.NES THE PATIENT'S 
{UNIQUE NUMBER. 

EQUIVALENCE C ICATA (9) ,RETNC) 

{THIS OATA HORC CONTAINES THE SUBJECT'S 
{RETEST NUMBER. 

EQUIVALENCE ( ICATA (lO).CPID) 

{THIS OATA aORC CCNTAINES THE PATIENT'S 
iCARDIOPULMUNARY NUMBER. 

EQUIVALENCE(IDATA(«0) ,0ATE(1)) 

{THESE THREE DATA KCRDS CCMAIN THE 
{PATIENT'S TEST CATE. 

EQUIVALENCE (I0ATA(26),NAME(l) ) 

{THE la OATA HCRCS CONTAIN THE 
{PATIENT'S NAME, 

EQUIVALENCE (ICATA(2),SEX) 

{THIS DATA InORC CONTAINES THE PATIENTS SEX. 

EQUIVALENCE CIDATA(25). AGE) 

{THIS DATA *ORC CONTAINES THE PATIENTS AGE. 

EQUIVALENCE (ICATA(50),HIGHT) 

{THIS OATA mORC CONTAINES THE PATIENTS HFIGHT. 
EQUIVALENCE (ICATA(75),BPTS) 

EQUIVALENCE (A0CTBF(1),GASCSP) 

GAS BUFF£?T DISPLACEMENT 
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0043 

0044 

0045 

0046 

0047 
0046 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 
0059 


0059 

0060 
0061 
0062 

0063 

0064 

0065 


C- 

C- 

C- 

c- 

c 

c- 

c- 

c- 

c- 

c- 

c- 

c- 

c- 

c* 

c- 

c* 

c- 

c- 

c- 

c- 

c- 

c- 

c- 

c- 

c- 

c- 

c 

c- 

c 

C-- 

c 


EQUIVALENCE ( ADCTBF (2) # EXHALE) 

100NE FLAG SET BY THE A/O INTERRUPT ROUTINE. 

EQUIVALENCE CACCT8Fl3),SVThfiS) 

l SPIROMETER VOLUFN THRESHOLD# MUL ( BE CALCULATED, 

EQUI VALENCE (AOCTPF (4 ),FVC) 

1FLAG EQUAL TO -1 FOR FORCED VlTUL CAPACITY. 

EQUIVALENCE (ACCTBF(7), PUSHES) 

1CONTAINES 1*3 FCR BUTTONS THAT ARE 
1PUSHEO BY PROCESS. 

EQUIVALENCE ( ACCT6F (6) #PF T ) 

1FLAG FOR THE PFT TEST, MUST BE SET TO -i. 

EQUIVALENCE (ACCTBF(30)#LFLSHR) 

(CONTAINS LIGHT TO FLASH 
EQUIVALENCE (ICATA(129),RFVC) 

1 CONTAINES THE FORCEO VITAL CAPACITY IN THF 
1PATIENTS DATA BUFFER# WHICH MLL BF STORED 
ION THE FLOPPY DISK. 

EQUIVALENCE! I0ATA( 131 )#FEV1) 

ICONTAINES ThE FORCED EXPIRATORY VCLUMN IN 1 SEC. 

EQUIVALENCE ( IDATA ( 1 33) #P£FR ) 

ICONTAINES THE PEAK EXPIRATORY FLOW RATE. 

EQUIVALENCE U0ATA(l35)#FEF) 

ICONTAINES THE FORCED EXPIRATORY FLOW BETWEEN 25* ANC 75X MAX FVC. 
EQUIVALENCE (IDATA(137)#FEF212) 

ICONTAINES THE MEANS FORCED EXPIRATORY FLOW BETwEEF 20 CMI . AND 120C 
EQUIVALENCE ( ID A TA ( 1 4 1 ) # F 1 FP ) 

ICONTAINES THE X FEV1/FVC. 

EQUIVALENCE (I0ATA(145)#PFVC) 

ICONTAINES THE PRECICTEO FORCED VITIAL CAPACITY. 

EQUIVALENCE (IDATA(l47)#0PFVCP) 

ICONTAINES THE X OBSERVEO FvC/ PREDICTED FVC. 

EQUIVALENCE (ICATA(149)#PF£V1) 

ICONTAINES THE PREDICTED FORCED E-PIRATCRY vOLUMN IN 1 SEC. 
EQUIVALENCE (ICATA(151)#CPFEV1) 

ICONTAINES THE t OBSERVED FEVl / PREDICTED FEV1. 

INITILALIZE PARAMETERS 
OATA M/*M'/#F/*F # / 

ISET VAIABLES M and F equal TO THEIR ACSII VALUES. 

DATA DRCUT9/" 167772/ 

IDATA OUT BUFFER FOR THE PAPRELL INTERFACE CAPO. 

OATA DRINB/"16777<V 

l OATA IN BUFFER F0» 5 THE PARBELL INTERFACE CARD. 

DATA PCSR/"172540/ 

IOCTAL ACDRESS CF TH| PROGRAM ABLE CLCCK (Hal 1-P) 

1STATUS REGISTER. 

DATA PCC9/* 172542/ 

IOCTAL AODRESS CF THE PRCGBAMABLE CLOCK 
1C0UNTER BUFFER. 

OATA PCC/"la<i/ 

ISET CLOCK TO GET IOC INTERRLPS/SEC . 

OATA PCS/* 113/ 

OATA hD/'JA','N S'FES'e *,'*a*,'R '#'AP', # R 
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0066 

0067 

0069 

0060 

0070 

0071 

0072 

0073 

007A 

0075 

•007b 

0077 

0078 
0070 
0080 

0082 

0083 

0085 

00t’6 

0087 

0089 


c i»*A»,*Y M'JUM'N S*JU # »*L M # AU*,*G * t *86 * * # P S 
C a * 0 C% *T M'NOM'V * * # C£ *# *C V 
C— (OCTAL VALUE 7C eE LOADED INTO THE CLOCK STATUS 
C (REGISTER. 8ITS 0,i#3# AND 6 ARE TURNED ON. 

C l BIT 6 • ALLOTS CONE TO CAUSE AN INTERRUPT. 

C l BIT 3 • SELECTS REPEATED INTERRUPT NODE. 

C l BIT I - SET CLOCK RATE TO IOKHZ. 

C l BIT 0 • STARTS ThE CLOCK. 

FVC«*( 

C— (SET A/0 FOR FORCED VITAL CAPACITY DATA ACCUISITION. 

PFT«-1 

C— 1 INITILIZE THE PFT FLAG. 

SVTHRS*IFIXC(0.1-YNTRCP) /SLOPE) 

C— (CALCULATE THE SPIROMETER THRESHOLD . 

C-« 

C— SET UP CLOCK STATUS AND COUNTER BUFFER. 

C mm 

CALL IPCKE (ORCUTB » 0 ) 

C— (INITILIZE THE DRV 1 1 OUT BUFFER TO 0. 

(0 CONTINUE 

CALL IMTI 

C— (SET TIMERS TO INITIAL VALLES. 

ExhALE*0 

OLO*0 

C-- (SET FLAGS TO 0 

CALL LIGHT (MOO) 

LFLShR*MQ0 

C— ISM THE BIT TC CAUSE ThE FVC LIGHT TO FLASH. 

CALL IPOKE(PCCe.PCC) 

C— (SET CLOCK COUNTER FOR 100 INTERRUPTS PER. SECOND. 

CALL IPCKE(PCSR,PCS) 

C-- (TURN THE CLOCK CN. IPOKE PUTS ThE VALUES I N TP THE 
C (SPECIFIED AOCRESS. 

C 

c— CHECK FOR THE CONE FLAG OP USER TERMINATION 
C — 

T I sSECNCS ( 0.0) 

C-- (SET START TIME TO 0 FOR ELAPSED T1«E CHfcO. 

100 DELTA*SECNDS(TI) 

C— (GET THE ELAPSEC TIME. 

IF(EXHALE.EG.O.ANC.OLD.EG.-l) GO TO 10^0 
C— (TEST FOR DONE FLAG FROM THE A/C. 

C— (BRANCH TO RETURN CN SUCESSF'L COMPLETION. 

OLDsEXHALE 

C— 1SET OLO EQUAL TO THE CURRENT VALLE OF EXHALE. 
lFtDELTA.LT. 10.0) GC TO 100 

C-- (CHECK FCR 10 SECONDS OF ELAPSED TIME. IF NOT GREATER Than 
C-- (10 BRANCH TO 10 TC PEChECk. 

TYPE 200 

200 FORMAT(/, IX, 'FORCED VITAL CAPACITY TEST TI^ED OUT', 

%/, IX, 'PLEASE RETEST SUB JEC T ' , ea ( / )) 

CALL IPOK£(PCSR,0) 

L-- 1 TURN Th£ CLOCK CFF . 

GO TO 2200 
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..C— _ l BRANCH rO 10, FVC TEST TIRED OUT, TRY IT AGAIN. 

0089 1000 CONTINUE 

0090 CAUL IP0KE(PCSR,0) 

C— 1TUPN THE CLOCK OFF. 

0 TYPE 999, (GA8iLF(I),I»l,GAS0SP) 

0091 999 FORMAT!/, IX»8!2X, 16)) 

0092 IF(GA80SP.GT.100)GC TO 1050 

0094 1010 T'PE 1001 

0095 1001 FORMAT!/, IX, ‘EXPIRATION BREATH TOC SHORT*'. 

X/, IX, ‘PLEASE RETEST SUBJECT ‘,64!/) ) 

0 TYPE 1002 

0096 1002 FORMAT!/, *$ TYFE IN THE S. VOL. THRESHOLD ‘) 

0 ACCEPT 1003, SVTHRS 

0097 1003 FORMAT ! 16) 

0098 GO TO 2200 

0099 1050 CONTINUE 

0100 CALL LIGHT! "100) 

C— 

C-- GET THE FVC. 

C — 

0101 GASAVGsO 

C— INITILIZE THE GAS AVERGER TC 0. 

0102 IPKVLs-2047 

C— 1SET PEKK VALUE TO 0 

0103 00 UOO IPK«1,GASCSP 

0104 IF!GASBLF!IPK).LT.IPKVL)GC TO 1100 

0106 IPKVLsGASBUFUPK) 

0107 IPEAKsIRK 

0108 1100 CONTINUE 

C— l THIS 00 LOOP GET MAX PEEK VALUE 

0109 IFUPEAK.LT, 100) GO TO 1010 

0111 DO 1150 IAVG=IPEAK-3,IPEAK 
C— SET UP TO GET 4 VALLES 

0112 1150 GASAVGsGASAVG*F10AT!GAS81F!IAVG)) 

C TYPE U5l,IPEAK,GASAVG 

0113 1151 FORMAT!/, IX, » IP£AK GASAVG ‘ , 15, 5X ,F1 0.2) 

0114 RFVC*! !GASAVG/4.)*SL0PE+YNTRCP)*6PTS 
CC— 1GET THE AVERAGE OF THE FVC 

C— UNO NORMALIZE THE FVC. 

C«« 

C— GET THE FORCED EXPIRATORY VCLUMN IN 1 SECOND. 

C — 


0115 FEVl*(FLOAT!GASBUF!100))*SLCPE+YNTRCP)*ePTS 

C— 1 THE FEV1 IS EGLAL TC THE 100 TM. 

C— 10ATA KQRO. N0RMALEZ6D. 

C— 


C— GET THE PEAK EXPIRATORY FLCa RATE (PEFR) 


C — 


0116 PEFRs-2047 

C— 1SET THE INITIAL VALUE TO ZERO. 

0117 DO 1200 IPsl,IPEAK 

C— 1 ANALYZE t SEC, CF DATA. 

0118 TAN*FL0AT!GASPUF(IP+4)-GAS8LF IIP))/ 0.04 

C— 1CALCULATE The tangant for each time interval. 
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J 

C«» 

0119 

c«» 


c— 

0121 

1200 

0122 



c— 


c— 

>■ _ 

c— 

? 

c— 


c~ 


c— 


c— 

0123 


0124 

c— 


c— 

0125 

c— . 

0126 

C— 

0127 

c— 

0128 


0129 

c— 

0131 

c— 

0133 

1300 

0 

0134 

1301 

0135 


0136 



0137 

0136 


0139 


0140 


C — 
C — 

c»« 

c— 

c« 

c— 

c— 


c— 

c— 

c— 


a DATA POINT REPRESENTS 10 NSEC. REAL TIME. 

IF( TAN.GT • PEFR )P£FRa TAN 
1F1NQ THE MAXIMUM TAKGANT VALUE* 

I THIS IS THE PEFR. 

CONTINUE 

PEFR*(PEFR*SLOPE*YNTRCP)*ePTS 

ISTORE THE. PEFR VALUE IN THE CORRECT BUFFER LOCATION. 

GET THE. FORCED EXPIRATORY FLOW BETWEEN 25* AND 75* MAX FVC. 
[FORMERLY MMEFJ 

FEF 25* - 75* - 

ITI75*l 

ITI25»1 

1SET INITIAL TINES FCR THE 25* AND 75* 

1VALUES TO 0 
FVC75a(RFVC*0.?5) 

[CALCULATE 75* OF FVC. 

FVC25*(RFVC*0.25) 

[CALCULATE 25* OF FVC. 

00 1300 IFal.IPEAK 
[SET UP TO ANALYZE I SEC. CF TIME. 

PNUMsFLOATtGASBLF (IF) )*SLCPE+YNTRCP 
IF(RNUM.LE.FVC75)ITI75slF 
[GET THE TIME WHEN THE FVC IS 75* MAXIMUM. 

IF(RNuM.LE.FVC2S)ITI25sIF 
[GET THE TIME WHEN THE FVC IS 25* MAXIMUM. 

CONTINUE 

TYPE 1301»FVC75,FVC25,ITI75#ITI25 
FORMAT!/, 1 X,* FVC75 FVC25 # ,2(2x,Fl 0.2), 

X/,1X,* ITI75 IT 125 # ,2(7X,IS)) 

FEFs(FLO AT(GASBLF(1TI75)«G AS dUF(ITI25))* SLOPE)/ 

% (FLOAT (ITI75-IT 125) *0.01) 

FEFsFEF*8PTS 

[CALCULATE THE FEF 25% - 75* 

[BY CALCULATING THE SLOPE. 

[STORE THE EFE VALUE IN THE CORRECT BUFFER LOCATION. 

GET THE MEANS FCPCED EXPIRATORY FLOW BETWEEN 200 ML, 

UF THE FORCED VITAL CAPACITY, (FEF 200 - 1200) 

(FORMERLY MEFR] . 

ITI12S1 
ITI2=1 

[SET THE INITIAL TIMES -FOR THE FVC'S AT 200 
[AND 1200 MLS. TC 0. 

CC 1400 ITIsi.IPEA* 

1 SET UP TO ANALYZE l. SEC CF REAL TIME. 
RNUMsFLOAT(GASBLF(ITI) )*SLOFE+YNTRCP 

200 ML. 


AND 12000 ml 


0141 

c— 

IF(RNUM.LE.0.2)ITI2sITI 
[GET THE TIME WHEN THE FVC 

IS 

equal 

TO 

0143 

c— 

IF (RNUM.LE. 1,2)ITI12*ITI 
[GET THE TIME WHEN THE FVC 

IS 

EQUAL 

TO 

0145 

1400 

CONTINUE 
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V01C-03A FBI 29-FEe-fiO 14x06x29 


PACE 007 


FORTRAN IV 


0 

0146 HOI 
0U7 

OHS 

_C-« 

c— 

. . c«« 

C— 

_ .... C— 

C-- 

c— 

c— 

c— 

c— 

..... . c— 

0149 

C— 

c— 

c— 

c— 

c— 

0150 

C— 

C— 

0152 

C— 

C~ 

c— 

c— 

C— 

c— 

0154 

C— 
C— 
C — 
C— 

c— 

c~ 

0155 

C — 
C— 

0157 

C — 

C-- 

c— 

c— 

c— 

c— 

0159 

C~ 


. TYPE HOli ITI 12r ITI2 

FORMATt/# IX# * ITI12 ITI2 *#2($X#I5)) 
FEF2l2s(Fi.0AT(6ASFUF(ITU2)*6AseuF(lTI2))*SL0PE)/ 

XCFLQAT ( ITI 12-ITI2)*0,01 ) 

FEF212*FEF212*BPT3 
(CALCULATE THE FEF 200 • UOO MLS. 

_18T_CALCUUAnNG. THE SLOPE BETWEEN THEM. ....... 

1ST0RE THR FEF212 VALUE IK THE CORRECT BUFFER LOCATION. 

PREDICTED FORCED VITAL CAPACITY AND FORCED VITAL 
CAPACITY. ALL MIN. ARE CALCULATED USING THE FORMULAS REFERENCED 
BYt 

REUBEN. M..CHERMACK, MC. 

IN: 

PULMONARY FUNCTICN TESTING 
ft.B. SAUNDERS# PR. 243# 1977. 

GET THE * FEV1/FVC 

F 1 FP *F E V 1/RFV C * 1 00. 0 " 

1CALCULATE THE X FEV1/FVC 

1ST0RE THE FIFP IN THE CORRECT BUFFER LOCATION 
GET THE PREDICTED FvC 

IF (SEX.EU.M)PFVC*6.06584*HIGHT-0.02954*AGE-5. 12451 
IFORMULA FOR CALCULATING THE 
1PREDICTE0 FVC FCR MALES. 

IF (SEX. ECJ.FJPFVCsO, 04071 *HIGHT-0. 02 147* AGE-2. 5695B 
(FORMULA FOR CALCULATING THE 
(PREDICTED FVC FCR FEMALES. 

(STORE THE PFVC VALUE IN THE CORRECT BUFFER LOCATION. 

GET THE PERCENT CF THE OBSERVED FVC TO THE PREDICTED FVC 

OPFVCPsRFVC/PFVC* 100.0 
(CALCULATE THE RATIO % OF THE 
IOBSERVEO TO PREDICTED FVC. 

(STORE THE OPFVCP VALUE IN THE CORRECT BUFFER LOCATION. 

GET THE PREDICTED FEV1. 

IF (SEX. EQ. M ) PFE v 1 = 0. 0425*H I GHT-0. 03509* AGE-2. 59946 
(FORMULA FOR CACLLATING THE 
(PREDICTED FEv 1 FOR MALES. 

IF(SEX.£G.F)PFEVl=0.04071*HlGhT-0.021U7*AGE-2.5695a 
(FORMULA FOR CALCULATING THE 
(PREDICTED FEV 1 FCR FEMALES. 

(STORE THE PFEvl VALLE IN THE CORRECT BUFFER LOCATION. 

GET THE PERCENT CBSERvEO FEV1 TO THE PREDICTED FEVl. 

0PFEV1=FEV1/PFEV 1*100.0 
(CALCULATE THE X OF THE OBSERVED 
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FORTRAN IV 
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RAGE 008 


0160 
0161 . 
0162 

0163 

0164 


0165 

0166 
0167 


0166 

0169 

0170 


C— IFF VI DIVIDED 87 THE PREDICTED FEV1. 

C— UTC.it THE UPFEV1 VALUE IN THE CORRECT BUFFER LOCATION. 

C-- .... 

C— PRINT OUT REPORT 
C— 

IMM»2* (DA TE( 1 ) ) 

IMMUIMH-I 

TYPE 2000 # CPI 0, CUMGNOC I ),I*1»2)»RETN0,DATE(2), 
8MD(IMMl),M0CIPP),CATfc(3) 

TYPE 2050* <NAPECI)#I»1,14),SEX, (SSNC ( I ) , 1*1 » 3) 

2000 FQRMAT(//32X,'FVC REPORT /36X , 'CD AS - V2.0’,// 

X5X,’CPI0 NO.: ’, 15, 28X, ’UNIQUE NO.: *,A2,I4,//, 

X5X, 'RETEST NO.: ' , 12, 28X , 'DATE : * » 12, IX ,2A2, 12, /✓) 

2050 FORMATtSX, 'SUBJECT NAME: ’ 14A2, IX, 'SEX: ’,A2,//, 

%5X, *SOC« SEC. NC.: ’ , 13, *•', 12, , I«) 

TYPE 2100,RFVC,FEV1,PEFR,FEF,FEF212,F1FP,PFVC,OPFVCP, 


2100 


XPFEV 1 ,OPFEV 1 
FORMAT (////, 5X, ’FVC 
X5X,’FEVl 


X5X , 'PEFR 


2200 


CL) 

(L/SEC) 
X5X,»mmfR CL/SEC) 
X5X,'MEFfi (L/SEC) 
X5X,’X FEV1/FVC 
X5X,»PRE0 FVC CL) 

X5X , ’ X 08S/PREC FVC 
X5X 'PRED FEV 1 CL) 
X5X,'X 08S/PREC FEV 1 
X5X, ’ALL PFT DATA 
CALL LIGHT ("103) 


Fe.2,//, 


CL) 

’,F8.2,//, 

’,Fe.2,//, 

’,F8.2,//, 

' ,F8.2,//, 

' ,F8.2, //, 

',F8.2,//, 

' ,F8.2 ,//, 

' ,F8.2,//, 

',Fe.2,///, 

8 TPS ’,//////////////////////////) 

! SET LIGHTS TO IDLE STATUS 


RETURN 


END 
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FORTRAN IV 


STORAGE. NAP 


NAME 

OFFSET, 

ATTRIBUTES 


M 

000014 

INTEGERS 

VARIABLE 

F 

000016 

INTEGER** 

VARIABLE 

PC8R 

000024 

INTEGER*2 

variable 

PCCB 

000026 

INTEGERS 

variable 

PCS, 

000032 

INTEGER** 

variable 

PCC 

000030 

INTEGER** 

VARIABLE 

OLD 

001560 

INTEG£R*2 

VARIABLE 

DROUTB 

000020 

INTEGER** 

VARIABLE 

f'RINB 

000022 

INTEGER*2 

VARIABLE 

IPIX 

000000 

INTEGER*2 

PROCEDURE 

IPOKfc 

000000 

INT£GER*2 

PROCEDURE 

IN1T I 

000000 

INT£GER*2 

PROCEDURE 

LIGHT 

000000 

INT£GER*2 

PROCEDURE 

T I 

001562 

R£AL*4 

VARIABLE 

SECND8 

000000 

REAL*4 

PROCEDURE 

DELTA 

001566 

REAL*4 

variable 

GASAVG 

001572 

R£AL*4 

VARIABLE 

IPKVL 

001576 

INTEGER** 

variable 

IPK 

001600 

INTEGER*2 

variable 

IPEAK 

001602 

INTEGER** 

VARIABLE 

IAVG 

001604 

INTEGER** 

VARIABLE 

FLOAT 

000000 

REAL*4 

PROCEDURE 

IP 

001606 

INTEGER** 

variable 

tan 

001610 

REAL*4 

variable 

ITI75 

001616 

INTEGER** 

variable 

ITI25 

001616 

INTEGER*2 

variable 

FVC75 

001620 

REAL*4 

variable 

FVC25 

001626 

REAL*4 

VARIABLE 

IF 

001630 

INTEGER*2 

variable 

RNUM 

001632 

REAL*4 

variable 

ITI12 

001636 

INTEGER** 

variable 

ITI2 

001640 

INTEGER** 

variable 

I T I 

001642 

INTEGER** 

variable 

IMM 

001644 

INTEGER*2 

variable 

I MM 1 

001646 

INTEGER** 

VARIABLE 

I 

001650 

INTEGER*2 

variable 


COMMON BLOCK /POATA/ LENGTH 006000 


IDATA 

000000 

INTEGER*2 

ARRAY (1536) 

SLOPE 

000250 

REAL*4 

variable 

rNTRCP 

000254 

HEAL*4 

variable 

SSNO 

000004 

INTEGER*2 

ARRAY (I) 

UNIGNO 

000014 

INTEGER** 

ARRAY (2) 

RETNO 

000020 

INTEGER*2 

variable 

CPID 

000022 

INTEGER*2 

variable 

DATE 

000116 

INTEGER** 

ARRAY (3) 

NAME 

000062 

INTEGER** 

ARRAY (14) 

SEX 

000002 

INT£GER*2 

variable 

AGE 

000060 

INTEGER** 

variable 

MIGHT 

000142 

REAL*4 

variable 
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FORTRAN IV STORAGE RAP 


NAME OFFSET ATTRIBUTES 


OPTS 

000224 

REAL*4 

VARIABLE 

RFVC 

000400 

R£AL*4 

VARIABLE 

FEVI 

000404 

REAL*4 

variable 

PEFR 

000410 

R£AL*4 

VARIABLE 

FEF 

000414 _ 

REAL*4 

VARIABLE 

FEF212 

000420 

REAL*4 

VARIABLE 

F1FP 

000430 

REAL*4 

VARIABLE 

PFVC 

000440 

REAL*4 

VARIABLE 

OPFVCP 

000444 

REAL*4 

VARIABLE 

PFEVl 

000450 

REAL*4 

variable 

OPFEV1 

000454 

REAL*4 

variable 

COMMON 

BLOCK /GASCON/ LENGTH 007640 

gasbuf 

000000 

INTEGERS 

ARRAY (2000) 

COMMON 

BLOCK /AOCOMl/ LENGTH 000104 

AOCTBF 

000000 

INTEGER*2 

ARRAY (34) 

GASCSP 

000000 

INTEGERS 

VARIABLE 

exhale 

000002 

INTEGERS 

variable 

SVTHRS 

000004 

INTEGER*2 

variable 

FVC 

000006 

INTEGERS 

variable 

PUSHES 

000014 

INTEGERS 

variable 

PFT 

000016 

INTEGERS 

variable 

LFLSHR 

000072 

INTEGERS 

variable 

COMMON 

BLOCK /X/ LENGTH 000060 

MO 

000000 

INTEGERS 

ARRAY (24) 
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A********************************************************************* 


SUBROUTINE AO I SR 

VERSION) 2 DATE) 0B/2R/7R 

AUTHOR! SILL CROSIER 

PURPOSE* SAMPLE 3ELECTFO */D CHANNELS#CHECK FRONT SWITCH PANEL 

(THRU PARALLEL INTERFACE ) # FLICKER OR FLASH SELFCTFD FRONT 

PANEL LIGHTS# ANO MAINTAIN ONE-SECONO AND 30-SECOND COUNTERS 

FOR TIMING APPROPRIATE TEST ACTIVITIES. 

SUMMARY OF ROUTINE* 

AQISR IS CALLED EACH TIME THE KWVll-A PROGRAMMABLE CLOCK REGUFSTS 
AN INTERRUPT. THE INTERRUPT RATE SHOULD BE SET BY THE MAIN 
PROGRAM AT THE START OF EACH TEST AT 100 HZ. 

EACH TIME ADISR IS CALLEO, A SCAN 

COUNTER (COUNT) IS CECREMENTEC AND ANALOG CHANNEL 0 (SPIROMETER 
VOLUME) IS SAMPLED ANr COMRAREC TO A THRESHOLD VOLUME (SVTMRS) 

WHICH IS AN INTEGER VALLE PREVIOUSLY CALCULATED BY THE MAIN 
PROGRAM WHICH CORRESPONDS TO A PARTICULAR AMOUNT OF SPIROMETER 
DISPLACEMENT SUCH AS 0.2 LITERS. * IF THE SAMPLED VOLUME IS LFSS 
THAN the THRESHOLD# NOTHING IS CONE WITH THE SAMPLE# AND THE ROUTINE 
STORES 0 IN THE EXHALATION FLAG (EXHALE) ANO THEN GOES TO READ 
THE FRONT PANEL SWITCHES. 

HOWEVER# IF THE SAMPLEC VOLUME IS GREATER THEN OR EQUAL TO THE 
THRESHOLD# "EXHALE" IS SET TO -I, THE SAMPLE IS STORED IN THf 
GAS BUFFER (GASBUF) AND ITS POINTER IS INCREM ENTEr. . (THE POINTER 
IS GENERATED BY ADDING THE STARTING ADDRESS OF GASBUF TO 
A RELATIVE DISPLACEMENT# GASCSP# ACCESSIBLE TO THE MAIN PROGRAM. 

AT THE END OF THE GAS SAMPLING THE UPDATED VALUE OF GASDSP IS 
STOREO AGAIN. THIS ELIMINATES THE NEED TO ADD AN INOEX V ALUF 
TO THE BUFFER STARTING ADDRESS FOR EACH GAS VALUE.) 

IF AN FVC IS NOT IN PROGRESS# THE PROGRAM THEN SAMRLFS 
ANALOG CHANNELS 1 (C2) # 2 (N2) # AND 3 (C02)# AND STORES EACH 
SAMPLE IN SUCCESSIVE LOCATIONS IN GASBUF. AFTEhw ARPS# THE UPOATFP 
GAS BUFFER DISPLACEMENT POINTER IS STORED IN GASDSP. IT T*EN 
POINTS TO THE NEXT AVAILABLE LOCATION IN GASBUF. 

NEXT# THE SCAN COUNTER IS CHECKED TO SEE TF IT 
EGUALS 0. IF NOT, THE PROGRAM ' 

RESTORES THE REGISTERS ANO RETURNS. IF COUNT IS s 0, THEN A 
NUMBER OF ACTIVITIFS TAKE PLACE AS FOLLOWS! 

1. THE A/D IS TRIGGERED TO SAMPLE CH. a (HR). 

2. COUNT IS RE-INITIALIZED TO 10. THIS DETERMINES how 
FREQUENTLY (RELATIVE TO THE INTERRUPT PATE) ALL OF 
THESE OTHER ACTIVITIES TAKE PLACE. 

3. THE FRONT PANEL SWITCHES ARE READ# AND PITS FOP 
SWITCHES THAT WiERE JUST PUSHED# WHICH wEPF NOT 
PREVIOUSLY RECOGNIZED BY THE main PROGRAM. ARE SET 
IN "PUSHES". THE MAIN PROGRAM SHOULD ACKNOWLEDGE 
RECEIPT CF THIS INFORMATION ev SAVING THE COMTFNTS 
OF PUSHES AND THEN IMMEDIATELY CLEARING 

PUSHES BY STORING 0 IN IT. 

A. THE PFT FLAG IS CHECKED AND IF NOT=0, THE PROGRAM 
BRANCHES TO FND. 

S. HEART RATE (HR) IS SAMPLED AN'C IF IT IS GBEATF 0 TwAN 
HRTHRS, AN INTEGER VALUE CORRESPONDING TO A LOwFB 
HEART RATE THRESHOLD AND PPFVIOUSLY DETERMINED BY ThF 
MAIN PROGRAM. THEN THE SAMPLED VALUE IS ADDED TO THp 
CURRENT HR (CHR) AND AVERAGE HP (AHR) ACCUMULATORS, AND THE If 
CORRESPONDING COUNTERS (CHRC^T & AhRCNT) APE INCREMENTED. 

ft. WORK LOAD (wL) OR ELEVATION (ELEV) AND SPEED ABF NFXT 
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SAMPUO. THE SAMPLED DATA IS ADDED TO THE APPROPRIATE 
ACCUMULATORS (CM I CSPD) ARC THE WL-ELFV-SPEED COUNTER 
(CwLCNT) IS INCREMENTED. 

7. 8PTIM| # THE BP TIMER, IS DECREMENTED. AND AT ThF START OF 
THE 55-TH SECOMO OF EACH MINUTE AN INTERNAL RP COUNTER 
IS SET TO COLLECT SBP ANO C0P SAMPLES 0URIN6 THE NFXT 
10 PASSES THRU THIS PORTION OF ADI8R (EVERY O.t SEC). 

IN ORDER TO WORK PROPEWLY. BPTIM£ MUST 8E INITIALIZED BY 
THE MAIN PROGRAM AT THE BEGINNING OF THE EXERCISE TEST. 
JUST BEFORE THE PROGRAMMABLE CLOCK IS STARTED, TO 
10*(S5-SEC3), WHERE SECS IS THE NUMBER OF SFCOND8 PAST THE 
BEGINNING OF THE CURRENT MINUTE. OTHERWISE THE BLOOD 
PRESSURE CHANNELS WILL NOT BE SAMPLED AT THE CORRECT TIME. 

THE SBP AND CBP VALUES ARE ADDF.D TO THEIR RESPECTIVE 
ACCUMULATORS, CSBP AND CDBP. THE MAIN PROGRAM SHOULD 
OIVIDE THE SUMS BY 10 (RATHER THAN BY A VARIABLE COUNTER 
AS FOR HR,fcL-ELEV, ANO SPEED) IN OROER TO GET THE AVERAGE 

blood pressures for the minute. 

fl. AFTER SPEED IS SAMPLED (AND CONDITIONALLY, SBP & ORP), 

A o.i SECOND COUNTER IS DECREMENTED, AMO EVERY 1 SECOND 
secs IS INCREMENTED BY ONE. ANOTHER 1-SECOND COUNTFR IS 
ALSO DECREMENTED, AND EVERY 30 SECS. SEC30 IS INCREMENTED 
BY t. SECS & SECS30 MAY BE USED BY OTHER ROUTINES TO TIME 
OTHER ACTIVITIES AND MAY EITHER BE LEFT TO RUN CONTIN- 
UOUSLY, CR THEY MAY ee RESET TO ZERO PERIODICALLY BY OTHER 
ROUTINES, THESE TIMERS HILL NOT HOPK PROPERLY UNLESS THE 
KWVtl-A 10 SET TO PRCVIOE INTERRUPTS EVERY 10 MSEC. 


NOTES: 


1 . 


2 . 


THE ACCUMULATORS FCR CURRENT HP (CHP), AVERAGE HP (AHR), 
HL-ELEV (CKD, SPEED (CSPD), SBP CCSPP), ANO OP P (CDBP) 

ARE DOU6LE-HORO INTEGERS, ALTHOUGH THEIR COUNTERS APE 
SINGLE-WCRC INTEGERS. EACH ACCUMULATOR AND TTS RESPECT- 
IVE CUUNTFR (EXCEPT FOR SB® l DBP) MUST PE RESET TO 0 BY 
THE MAIN PROGRAM EACH TIME ONE DESIRES TO START A *£* 
AVERAGING INTERVAL. THIS IS A DRMALLY DONE EACH TP'f SECS30 
IS INCREMENTED, EXCEPT FOR CURRENT HR, WHICH MAY BF RESET 
EACH TIME SECS IS INCREMENTED. 

GENERAL REGISTERS USED: 

RO -- POINTS TO A/O COMMAND & STATUS REGISTE® 

R1 -- POINTS TO ONE OF SAMPO THRU SAMPS (A/C TRIGGER 
CCMMANO HfPOS) 

R2 -- POINTER FCR SAMPLED A/C DATA AND OThfp CALCULATE 1 
PARAMETERS 

R3 -- USED FCR SCAN COUNTER (RESET EACH TIME FRONT PANHi. 
SWITCHES AND 8L0* A/D SAMPLES ARE READ), 
ACKNOWLEDGED FRONT PANEL S*ITCHS, AND SIGN 
EXTENSIONS OF A/D SAMPLES FOR HR,wL-FlFV, 

speed, sbp, anc cep. 

RU -- CONTAINS A/D SAMPLED DATA TFMPflPARILY 

(EXCEPT 02, M2, ANC C02), AND FRONT PA NFL 
SWITCH CONDITIONS 

R5 -- CONTAINS MASK FOR CHECKING A/D DONE FLAG. 
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I 

I 

I 

I 


aosm »f*ti racro v»oi«ts ewpp-po 14*22*1* page i 


t 

s 

* 

10 

tl 00000 
12 00000 
IS 
»• 

19 

u 

17 

10 

1* 


.TITLE ACtfP 

PAC6RAP* 10III.NC 

VIA8ICM 2,0 

A* At 00 !0 OIGITAL CONVERTER INTI RRURT SERVICE ROUTINE POO CDAf 
ACTPOOl MUX*» 6. CROSIER 
BATH 2* AL6 70 


17*770 

17*772 

17*7*0 

17*7*2 

1*777< 

1*777* 

1720*0 


.►CALL .R|6CIP,„V2„ 

..Vi,. 

.•((CfF 

AC8A«17*770 ...... 

*C]A«17*772 

0AC1«17*7*0 

CAC2*17*7*2 

C*CUT|*i*7772 

0*1*0*1*7774 

CI.4CSM177040 . . ... 


I 


. 20 00000 0100** AOISRl 

NCV 

R0,-(8P) 

21 00002 0101** 

NCV 

R1,»(SP) 

22 00004 012700 

NCV 

•ACSP.AO 

F 17*770 



23 0*010 912701 

NCV 

•SAPPS, SI 

* 0*0000* 



2* 00014 012110 

NCV * ' 

' CPl)»,CRO) 

- 29 0001* 01024* 

NCV 

R2.-(8P) 

2* 00020 01034* 

PCV 

R3,*(SP) 

i 27 00022 0104** 

PCV 

*4,»(SP) 

20 0002* 0109** 

PCV . • 

R5,-(SP> 

2* 0002* 012703 

NCV ... 

*200, P5 

*00200 



30 00032 012702 

PCV 

•6ASPLP,P2 

000000* 



31 0003* 01*703 

NCV 

6ASCSP#R3 

000000* 



32 000*2 020327 . 

CNP ... 

R3,«2C00, . 

003720 



S3 0004* 100409 

INI 

GETCSP 

34 00C50 003003 

CL* 

RS 

. 39 00052 *030*7 

CLP 

GASCOP 

0000*0* . 


« 

... 3* 0005* 0092*7. 

INC ... 

GASCVP . 

0*0074* 



37 000*2 006305 OETCSPt 

ASL 

PS 

30 000*4 0*0302 

ACC 

P3.P2 

3* 000** 01*703 

PCV 

COUNT, RS 

*00090* 



40 00*72 005303 

oic .... 

RS 

•1 00074 0103*7 

PCV 

R3.CCLNT 

*00000* 



*2 00104 0.31005 LOOPS* 

• IT 

(PO) ,45 

. 43 00102 00177* 

•EG 

LOOPS 

44 0010* 01370* 

PCV 

0«ACIA#R4 

17*772 



49 40110 0057*7 

TOT 

CANALS 


A/0 CONTROL t STATUS REOISTER . . . .... 

A/0 INPUT OATA SUPPER 

0/A PI OUTPUT OATA SUPPER 

0/A *2 OUTPUT DATA SUPPER 

PPONT PANPu OUTPUT SUPPER (LIGHTS) 

FRONT PANEL INPUT SUPPPR (SNITCHES) 
PROORAPPARlE CLOCK CONTROL t STATUS RES. 
SAVE REGISTERS ON STACK 

PUT AC0RE8S OP A/0 CSR IN RO 

PIT A/0 TRieOPP NOPO POINTER IN R1 

TRIC6EP A/0 POP CPAS, 0 <$RIR.” VOLT) 

SAVE OTHER REGISTERS 


STORE A/0 DONE MASK JN R5 

PUT CAS OATA SUPPr* STARTING AOR. IN R2 ‘ 

PUT GAS DISPLACEMENT POINTER (NORO COUNT) IN R| 

SEE IP GAS OATA SUPPER IS PULL 

IP NOT. GO CALCULATE oisplacepent POINTER, 

RESIT P5 TO 0. 

RESET GAS OISPLACEPENT TO 0. 

INCREPfNT GAS OISPLACEPENT OVEPFLO* FLAG. 

PULT. P5 BY 2 (CONVERT MORO TO BYTE COUNT) 

I ACO PEL. OISPLACEPENT TO GENERATE POINTER 
LOAD SCAN COUNTER 

OECRINENT CCUNTFR . 

S STORE IT (LEAVE IT IN R3 FOR LATER USE) 

SEE IP A/0 CONVrRSTflP IS DONE 

IP NOT, NAIT . . 

PUT A/0 SANPLI IN R* 

f EXHALATION IN PROGRESS OURING LAST SAMPLE? ' 
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ADIS* NT»1 I »AC*0 VNO|.|2 


«•»«•« l*«22lI0 nor l« 



NS 

SHIN 061*11 

PI6 

NflfXH 


N? 

6011* 

020**7 

00000** 

CHP 

HH.SVTHN6 


•6 

60122 

160011 

6NL 

MI6HI 


NS 

eon* 

0091*7 

000970 

eic 

LOCK! 
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66116 662011 

66K . 

PVCflT 


91 

00112 

0090*7 

000002* 
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FLAG (*P FOR !NHAlATIPN«*>t FCR 
EXHALATION) 

SPIRORETER VOL. THRF3R010 

FJL A6 («•) FOR FVC, 0 ALL OTRFRS) 

RASAS OUT UAUSFO UTS ON PARALLEL 

interface input un-es (unused sritcres) 

CCONTAINS I'S FOR SRITCRES TRAT RAVE 
ALREADY BEEN RECOGNIZED AS BEING PLSREO 
CONTAINS I'S FOR BUTTONS TRAT ARE PUSRCD 
FLAG (»•! FOR ALL PET'S# 0 OTRERMISE) 



I GAS DATA BUFFER 
t 


»*N11»P interrupts vector TO ACISR 
tOISASLE ALL CTRER INTERRUPTS. 


100 


tom »t«ii vieit y<*oo*ii »w«.»o 1*122130 tiu \* 

IttOOl, ItHC 


*OOP8 

6004128 


ACIK * 

176772 


A0I8* 

0000008 


AOS* • 

170770 


1*8 

000032* 

004 

6P8C8T 

000022* 

604 

AWP1 

COCO 348 

004 

4*1* 

000070* 

004 

AftlCNT 

0001028 

00* 

**U 

0001008 

00* 

8PC*T 

0000*48 

004 

2*CAT1 

0000528 

004 


6000*48 

004 

cce* 

OOOOOC* 

00* 

CCBP1 

0000*28 

' 004 

CHP 

0000**8 

004 

CM*C*T 

0000208 

00* 

CH*1 

0000308 

00* 

CL^CiM 

t 725*0 


CNT10 

0000028 

002 

C*T30 

000004* 

002 

COIN? 

0000008 

002 

C5M 

000054* 

00* 

CSRP1 

000056* 

00* 

C3PC 

06008*8 

004 

CSPCl 

0000508 

00* 

CM 

000036* 

004 

C*LCNT 

00008*8 

000 

Colt 

0000608 

064 

0*C1 8 

170760 


0*C2 « 

176762 


c*i*e * 

167770 


O8CUT0« 

167772 



000*8*8 


f»Mlf 

000002* 

004 

f*KPT 

0000128 

002 

pimsp 

00070?* 


PUCK* 

0006*2* 


Pl»CKT 

000006* 

. 002 

*1**16 

000010* 

002 

pvc 

00000*5 

004 

PVCTST 

000160* 


tf^seuF 

000009P 

005 

643C3P 

0000065 

00* 

C430VP 

000074* 

004 

CCTCSP 

0000**8 


PICK? 

000722* 


P16H 

00021*8 


HlO*l 

ooois*8 


MTPP8 

0000248 

00* 

IFLSHP 

0000728 

004 

liuoa 

000*788 


ICCAT 

0007208 


LOOPO 

0001008 


ioopi 

000*5*8 


ICCP2 

0002*68 


10CP3 

00027*8 


LOOP* 

00035*1 » 


LCCP5 

00061*8 


LOOP* 

0005128 


LOCPT 

0005*0* 

* 

ICC80 

0005*28 


MASK 

0000108 

604 

NOE** 

0002-00* 


PC *30000(7 


PPT 

00001*8 

064 

PACVSa 

000012* 

004 

HM1 

0000168 

00* 

8EA0SP 

00030*8 


PO **600000 


81 sXOOOOCl * 


82 83000002 


#3 **000003 


*« noooocA 


85 SX000005 


3**80 

000000* 

003 

3***1 

0000028 

003 

3APP2 

0000048 

603' 

3APP3 

ooonoo* 

.003 

3*888 

0000108 

003 

3***5 

000012* 

063 

***** 

Of Out** 

003 

$**P7 

oooou* 

003 

3APP6 

0000208 

003 

SECS 

oooooo* 

008 

3f C330 

000070* 

004 

3P 8X00000* 


sroosv 

0001**8 


3VTP83 * 

0000068 

00* 

TIPE* 

000602* 


* • • v2 * 

000001 








. *BS. 

000110 

000 








000728 

0O1 







TI*CNT 

0000 10 

002 







adcc* 

000022 

003 







*oco*\ 

000108 

008 







a*$co* 

007o«0 

005 . 







E88C83 Cf TfCTEOt 

0 







P*f£ CC*E» 175*7 

• 86803 


„ 


. . 




*LPt«AOI3» 
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PARE 601 


0001 

0002 

0003 

0000 

0005 

0006 

0007 

0008 
0000 
0010 
0011 
0012 
0013 
001 « 

0015 

0016 

0017 

0018 

0019 

0020 
0021 


C— EXERCIZE SUBROUTINE# VERSION 2.0 

C-- 

C WRITTEN BY* RCY A. REEC 

C DATE* OCT. 1978 

C - . .... . 

C REWRITTEN BY: hILLIA* G. CRCSIER 

C OATE* AUG. 29.1979 

C MODIFIED BY* ABHI JIT GACGIL 

C DATE* 0EC.1979 

C 

SUBROUTINE EX 

C— 

C— SET UP VARIABLES 

C mm 

L0GICAL*1 RETI (8) # RETIX(8) 

C— ICONTAINES THE REAL TINE 
INTEGER EXHCKT,TIFBLF(fc) 

INTEGER SECS#BPCNT#fiPCNTl#BPTlHE#SECS30 
C« 130 SECOND TIBER # FRC* ACISR 
INTEGER*** OUT 
INTEGER AGE 

C— 1PATIENTS AGE# tC BE USEC IN 
C— ITHE CALCULATICNS CF THE PRECICTC VAlUFS. 
INTEGER CPID 

C— 1 PATIENTS CARCICFULM.NARY IDENTITY NUMBER . 

INTEGER NAVEC14) 

C— IPATTENT # S NAME. 

INTEGER SSNO (3) 

C— IPATIENT'S SOCIAL SECURITY NUMBER . 

INTEGER 0 ATE ( 3 ) 

C-- IDATE THE TEST HAS CONCLCTEC. 

INTEGER RETNC 

C-- 1PATIENT *S RETEST NUMBER • 

INTEGER IJNICNC (5 ) 

C— IPATIENT *S UMGUE NUHBER . 

INTEGER M#F#SEX 

C— ISUBJECTS SEX TC BE USED IN C ALCLLA TICN S . 
INTEGER A0CTeF(3A) 

C-- JCONHON AREA FCF A/C COWHANC VARIABLES 
INTEGER GASRUFC2000) 

C-- 1 A/0 COMMON DATA PIFFEB. 

INTEGER GASOSF 

C-- IGAS PUFFER DISPLACEMENT 
INTEGER EXHALE 
integer SVTHRS 

C-- 1SPIPPVETER VOLUME THRFSHCLO . 

INTEGER F VC 

C-- IFLAG (s-lFOR FCRCEC VITAL CAPACITY 
C IEGUAL TC 0 FCR -ALL CTHERS). 

INTEGER PFT 

C-- IFLAG *-l FOR FLLNCNARY FUNCTION TESTS 
C l s-0 FOR ALL CTHERS 

integer HRTWRS 

C-- ICONTAINES THE HEART RATE THRESHCUC . 
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C 1PUSHE0, 

0022 INTEGER PCJR 

C— l A0DRE3S OF THE PRCGRAPA8LE CLOCK 

C 1STATUS REGISTER. 

0023 INTEGER PCC8. 

C-- IAOORESS OF THE PRCGR AMABLE CLOCK 

C ICOUNTER BUFFER. 

0020 INTEGER PCS 

C— 1 H AS THE VALUE TC BE PLACED INTO THE 

C t CLOCK STATUS REGISTER. 

0025 INTEGER PCC 

C— I HAS THE VALUE TC PE PLACEC INTO THE 
C 1 CL 0 CK COUNTER eLFFER. 

0026 INTEGER OLD 

C— 1 VARIABLE TO HCLC THE OLD VALUE CF EXHAST. 

0027 INTEGER OROUTB,CRINe 

C-- IVARIBLES that CONTAIN THE ADDRESS CF THE 

C— IDHli PARALLEL INTERFACE CARC INPUT ANC CUTPLT BUFFERS. 

0028 REAL HIGHT 

C— IPATIENT *S HEIGHT IN CN. 

0029 REAL NT 

0030 REAL SLPYCP(IP) 

C— 1 VARIEBLES THAT CONTAIN INFCPHATTCN FASSEO 
C— ITHROUGH A0C0N1 CCHNCN 8LCCK TO C ALCLL ATE THE 
C— 1SPIR0WETER THRESHOLD (SLOPE & Y-INTERCEPT 
C— i ARRAY — CALie. FACTORS FCR ALL 9 CHANNELS 

0031 REAL*8 SECTN,PST,EK,REC ! ALPHA LABELS FCR SECTION OF TEST 

C— SET UP THE CCHNCN AREAS. 

C-« 

0032 COHNCN/GAS30/VC2,VCC2,VCL,IERTH 

0033 COMPCN/TIMCNT/TIHBUF 

0039 C0MMCN/PnATA/ICATA(1536) 

C— 1SET UP THE CCHHCN BUFFER FCR PATIENT DATA 
C— l ALSO# CCNTAINES THE PATIENTS INFCPHATTCN. 

0035 COHHON /GASCCH/G AS6LF 
C»- 10ATA BUFFER CCHHCN AREA. 

0036 CONHCN /A0C0P1/ADCTPF 

C— ICOHHCN AREA TC PASS COVHANC VARIABLES AND 
C 1C0NSTANTS TO gFFCH A/C INTERRUPT SERVICE ROUTINE 

0037 EQUIVALENCE (TINBUP (6) ,£XHCNT) 

C— ICONTAINES THE ENO CF BREATH FLAG. 

0038 EQUIVALENCE ( IDATA (?5) ,SLFYCP( 1) ) 

C— l CONTAINES THE SLOPE ANC V INTERCEPTS. 

0039 EQUIVALENCE (ID AT A( 3 ),SSNC(1)) 

C— {THESE THREE OATA KCPOS CONTAIN 

C-- 1 THE PATIENT'S SOCIAL SECLRITY NLNBER. 

0090 EQUIVALENCE ( IDATA (7) ,U*ICNC) 

C-- I THIS DATA fcORC CCNTAINES THE PATIENT'S 
C-- tUNIQLE NUMBER. 

0091 EQUIVALENCE ( ID ATA (9) ,RETNC) 

C-- 1 THIS DATA wORC CCNTAINES THE SUBJECT'S 

C-- IRETEST NUMBER. 

0092 EQUIVALENCE (ICATA(10),CPIC) 

C-- ITHIS CATA ACRE CCNTAINES THE PATIENT'S 
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0043 

0044 

0045 

0046 

0047 

0046 

0044 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

005e 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0066 

0069 


C— ICARQIOPLLMUNAfiV NLNBER. 

EGUlVALENCECICATAC40)#CA7E(n) 

C— 1 THESE THREE DATA WORDS CCNT-AIN THE 
C— IPATIENT'S TEST CATE. 

. EQUIVALENCE- (ICATA (26) ,NAHE(1)1 
C— l THE 14 CATA WCRCS CONTAIN THE 
C— tPATIENT *S NANE. 

EQUIVALENCE ( IC AT A (2 ) #S6* 1 
CC 1THIS DATA WOfiC CCNTAINES THE PATIENTS SEX. 

EQUIVALENCE (ICATA(251# AGE ) 

C— 1 THIS OATA WOfiC CON T A INES THE PATIENTS AGE. 

EQUIVALENCE (ICATA(S0),HIGHT) 

C— 1 THIS DATA WOfiC CCNTAINES THE PATIENTS HEIGHT. 
EQUIVALENCE ( ICATA (52) #WT) 

EQUIVALENCE (IDATA(72).KCNT) 

EQUIVALENCE (ACCTBF (19), BP TIME)# ( ACCTBF (22) , BPCNT 1 ) 
EQUIVALENCE ( ACCTSF (27) #EPCNT) ... 

EQUI VALENCE (ACC TBF ( 1 ) ,GASCSP) 

C— GAS BUFFER DISPLACEMENT 

EQUIVALENCE (ACCTeF(2), EXHALE) 

EQUIVALENCE (ArCTeF(3),SVTHKS) 

C— l SPIROMETER VCLLNN THRESHOLD# MUST PE CALCULATED. 

EQUIVALENCE (ACCT8F (4 ) ,FVC) 

C— IFLAG EQUAL TC -1 FCfi FORCEC VITIAL CAFACTTV. 

EQUIVALENCE (ACCT6F(7), PUSHES) 

C— ICONTAINES l'S FCR eLTTONS THAT AfiE 
C l PUSHED BY OPERATOR. 

EQUIVALENCE (ACCTBF(8)#PFT) 

C— IFLAG FCR THE PFT TEST, MUST 8E SET TO -t FOR PFT'S 
EQUIVALENCE (ACCTBF(ll)#HfiTHRS) 

EQUIVALENCE (ACC TBF ( 16) #*L ) # (ACC TBF (20), AS) 
EQUIVALENCE (ACCTBF (29) ,SECS30) , ( ACCTBF (28) ,SFCS) 

C— ICONTAINES THE ACISP 30 SEC. TIMER. 

EQUIVALENCE (ACCTBF(30)#LFLSHR) 

C— ICONTAINES THE BITS CF THE LIGHTS TC FLASH. 

C — 

C— INITILALIZE papahetefs 

c»- 

DATA RST # EX# REC/ '* REST *'# 'EXERCISE'# 'RECOVEFY'/ 
DATA M/'M'/#F/'F'/ 

C-- 1 SET VAIAPLES H AND F EGLAU TC THEIR ACSII VALUES. 

DATA CRCUT8/M67772/ 

C— ! OAT A CUT BUFFER FCR THE PARALLEL INTERFACE CARD. 

DATA 0RIN8/"167774/ 

C-- 10ATA IN SUFFER FOR The PARALLEL INTERFACE C«RO. 

DATA PCSR/" 172540/ 

C— 10CTAL AC DRESS CF THE PRCGFAMAPLE C L C C K ( K a 1 1 - P ) 

C 1STATUS REGISTER. 

DATA PCCB/ " 172542/ 

C— 10CTAL ACORESS CF THE PRCGRAHABLE CLCCk 

C 1C0UNTER 8UFFER. 

DATA 0CC/ m 144/ 

C~ i SET CLCCK TO GET IOC INTEFRLPS/SEC . 

DATA 0CS/"113/ 
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001Q 

0071 

0072 

0073 

0070 


C— 

C 

C 

C 

C 

C 


C— 


C— 


OCTAL VALUE TC eE LCADEC INTO THE CLOCK STATUS 
REGISTER. SITS C • 1 # 3 # AKC A ARE TURK EC ON. 

BIT 6 - ALLCKS CCNE TC CAUSE AN INTERRUPT. 
BIT 3 - SELECTS REPEATED INTERRLPT ROOF. 

BIT 1 ? SET. CLOCK RATE TC 10KHZ. 

BIT 0 • STARTS THE CLCCK. 

DATA OUT/ 'OUT '/ 

SVTHRStIFI)(((0.2-8LPYCP(2))/SLPYCP(l)) 
HRThRS«IFIX((3S.-3LPYCP(10) )/SLPYCP(R)) 

FVCaO 

UNITIALIZE FVC FLAG. 

PFTsO 

IINITILIZE THE FFT FLAG. 



0 

TYPE 5 




C5 

FORMAT ( * BEFORE CLELE') 



0075 


IF(ICSET(5).NE.C) STOP 'CLELE ALLLCCATICN FAILURE' 



c— 

_____ _ .. _ . . 



0077 

100 

CONTINUE 




c— 





c~ 

SET UP THE REST PART 




c— 




0078 


SECTNaRST 



0070 


CALL LIGHT ("2) 



0080 


LlTESa"26 



0081 


ICTaftl 



0082 


LFLSHfia"2 i SET REST LIGHT TC FLASH 


0083 


I0ATAC6«)a0 



0080 


IDAT A(68)s0 



0085 


KCNTsO 1IMTILIZF RECCRC 

COUNTER 


008A 


ASSIGN 130 TO IRETRN 

1 ASSIGN RETURN LAPFL 

for start 

0087 


GO TO 520 

IGO TC INITIALIZE & START RCuTINF. 

0088 

130 

CONTINUE 



0080 


IF(EXhCNT.EG.O)GQ TC 135 




C 

TYPE 3.GAS0SP »E>HCK T 




D3 

FORMAT (2X, 'GASCSPa*,I3 » 'EXHCNTs',13) 


0001 


CALL BREATH 




C 

TYPE «,V02,VCC2rVCL,IRRTH 




CO 

FORMAT (2 X, 'V02='*F6,1» 'VCC2 

s',F6.1, 'V0L*'»F6.1* 'IBRTfta'# 

T 3 1 

0002 

135 

CCNTIMF 



0003 


IFCSECS3O.EG.0JGC TC 145 



0005 


ftl=0 . 



009ft 


AS = 0. 



0007 


CALL TRS8UF 



0008 


KCNTsKCNT+1 



0000 


CALL RPT30 



0100 

105 

CONTINUE 



0101 


IRESalPEEK(CRINP) 

{CHECK CONTROL PA^Fl 

Pt'SHPUTTCl 

0102 


IF f IRES .EG • "2 )GC TC 100 

ifestart rest 


0104 


IF(TRES.EQ."20)GO TC 160 

IPALSE 


0106 


IF( IRES.EG."4)GC TC 200 

{START EXERCISE 


0108 


IF(KCNT.GE.20)GC TC 200 

{MAX RECORDS RE ACHFO 


0110 


. GO TO 130 

{GET NEXT 30. SEC WFCORO 


0111 

160 

ASSIGN 145 TO IKAIT1 

1 ASSIGN RETURN LAHEL 

FOR PAUSE 

0112 


GO TC 562 

IGC TC FALSE ROLTINE 
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0113 

200 

CONTINUE 


0114 


CALL IPCKE(PCSR,0) 

ISTCP CLOCK • 

0115 


I0ATA(64)*(KCMfl)/2 


0116 


CALL OATA (OUT) 


0117 . 


IFCZNES.eQ.43 GC TC 220 



C 

WAIT UNTIL EX BITTCN IS PLSHEO 

0119 

205 

IF ( I PEEK (0RINB),NE."4) GC 

TC 205 

0121 

207 

IFCIPEEK(ORINB).NE.O) GC TC 207 {WAIT TILL FX PFLEASED 


C— 




C — 

SET UP EXERCIZE PART 


0123 

220 

CALL. IPCKE(PC5P,0) 


0126 


SECTNsEx 


0125 


CALL LIGHT £"4 ) 


0126 


LITESs«34 

- 

0127 


LFLSHRs"4 

i 

0128 


ICT«65 



C— 



0129 


1 0 A T A (6 8 V» 0 


0130 


KCNTaO 

1RECCFC COLNT 

0131 


PRECs2*(60-ICATA(64)) 


0132 


ILAST»0 


0133 


ASSIGN 230 TO IFETRN 

{.ASSIGN RETURN LAPFL FOR START ROUTINE 

0134 


GO TO 520 1 GO TC 

INITIALIZE » STAPT ROUTINE 

0135 

230 

CONTINUE 


0136 


IFCSECS.EG.ILASTJC-C TO 233 


0138 


CALL fcPKADJ 


0139 


ILASTsSECS 


0140 

233 

CONTINUE 


0141 


IFCEXHCNT.EG.OGC TC 235 


0143 


CALL BREATH 


0144 

235 

CONTINUE 


0145 


IF(SECS30.EG.0)GO TC 245 


0147 


CALL TRS0UF 


0148 


KCNTaKCNTfl 


0149 


CALL RPT30 


0150 

245 

CONTINUE 


0151 


IRESsIPEF.K(ORINF) 

{CHECK USER RESPONCE 

0152 


IF(IRES.EQ. h 4)GC TC 220 

{RESTART EXERCISE 

0154 


IF(IRES.EQ."20K-0 TC 260 

IPALSF 

0156 


IF(IPES.E(5."10)GO TC 300 

{START RECOVERY 

0158 


IFCKCNT.GE.WREOGC TO 300 

iEXFRCISF CONE » wax m OF PECPPCS 

0160 


GO TO 230 

l GET NEXT RE CORO 

Olfcl 

260 

ASSIGN 245 TC IN A I T 1 

{ASSIGN RETLRN LAPEL FOR PAUSF ROUTINE 

0162 


GO TO 562 1 GO TC 

PAUSE ROUTINE 

0163 

300 

CONTINUE 


0164 


CALL IPCKECPCSfi,0) 


0165 


IDATA(68)s(KCNTM)/2 


0166 


call catacout) 


0167 

C-- 

IFCKCNT.GE.NftEOGC TO 90C 

{VAX REACHFC, GC TO ENC 


C-- 

SET UP RECOVERY PART 



c— 



0169 

310 

CONTINUE 

* 

0170 


CALL IPCKECPCSP,0) 
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if 
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0171 


0172 


0173 


0174 


0175 


0176 


0177 


0178 


0179 


0180 

330 

0181 


0163 


0164 

335 

0185 


0187 

... . __ 

0188 


oieo 


0190 


0191 


0192 

345 

0193 


0199 


0196 


019§ 


0200 


0202 


0203 

360 

0204 


0205 

400 

0206 


0207 

900 


C 


Cl 

0208 


0209 



C 


C 

0210 

520 

0211 


02)2 


0213 


0214 


0215 

522 

0216 


0217 


0219 

523 


C 


C9 

0220 


0221 


0223 


0224 


0225 


0226 



V01C-03A FRI 29-FEP-80 x2^ l£l 


WREC«2*C60-IDATA(fc4)-iDATA(68)) 

*CNT«0 

SECTN*«CC 

CALL LIGHTCIO) 

LITES»"70 

LPLSHR«"|0 

ICT*69 

ASSIGN 330 TC IRETRN ! ASSIGN 


PAGE 006 


RETURN LABEL FOR START ROUTINE 


GO TC 520 
CONTINUE 
IF(£XHCNT.£Q.0)GQ TC.335 
CALL BREATH 
CONTINUE 

IF(SECS30.EO.O)GO TC 345 
NL*0. 

ASsO. 

CALL IR38UF .... ... 

KCNTsKCMM 
CALL RPT30 

continue 

IRESsi? f EK (ORINB ) 
IF(IR£S.EQ."10)GC TC 310 
IF(IRES.EQ."20)GO TC 360 
IF(IRIS.EQ."«0)GC TC 400 
IF(KCNT.GE.VREC) GO TO AOC 


1GO TC INITIALISE A START ROUTINE. 


IGET NEXT 
TO IMIT1 


GO TC 330 
ASSIGN 305 
GC TC 562 
CONTINUE 

CALL IPCKE (PCSR # 0 ) 
IDATA(72)s(KCNT+l)/2 
TYPE 1 

FORNAT(» BEFORE LIGHT') 
CALL LIGHT(O) 

RETURN 


RECCRC 


IGET USER RESPOFCE 

iRESTART RECOVERY 
iPAUSF 

! RECOVER Y CONE (END CF TFST ) 

1VAX RECORCS 

{ASSIGN RETURN LAPEL FOR PAUSE 
1G0 TC PAUSE ROUTINE 


{TURN OFF CLOCK 


1 TURN OFF ALL LIGHTS 


ROUTIINE TO INITIALIZE 9 START EACH SECTION OF EXERCISE 
IPAUSEs-1 UNITIALIZE PAUSE FLAG 

CALL TIPRD(IHR,IVIN,ISEC) 

IOATA(ICT)*lHR 

IDATA(ICT+l)rIVIN 

I0ATA(ICT+2)sISEC 
CONTINUE 
I SEC*IC AT A (63 ) 

IF(IPAuSE.cC.-l .ANC. SECTN.EQ.REC) GC TO 524 
CALL INITI 
TYPE R,EXHCNT 
F0PHAT(2X, 'EXHCNTsM3) 

BPTIHE*550 - flC*ISEC) 

IF(BPTIWE.LT.O) PPTIve«RPTIv£ ♦ 600 

V02*0.0 

VC02*0.0 

VOLsO.O 

IBRTHSO 


TFST 
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C TYPE. 10# V02,VCC2#VCL*IBRTH 

CIO F0RHATC2X,3P7.1,I3) 

0227 520 CALL IPCKE(PCCB,PCC) 1 SET PROGRAMMABLE CLOCK 70 100 HZ 

0228 CALL IPCK6(PCSR»PC8) 13ET STATUS IN CLOCK CSTAPT) 

02*9 .... CALL LIGHT (LUES) t TURN ON APPROPRIATE PANEL LIGHTS 

0230 IF(IPAU5E.NE.*l) GO TO 526 

0232 IF(SECTN.EQ.RST) CALL RPTHCR 

0230 TYPE 525,SECTN,IHR,IMIM,I8EC 

0235 525 F0RNAT(/5X, # * * * »,A8,* * * * REAL TIME: # ,I2, # *', 

SI2, # t',I2/) 

0236 526 IF(IPAUSE.EQ.O) TYPE 527, JHR,JHIN,J$EC 

0238 527 FORHAT (/ * CONTINUE AT ', 12, # * * , 12 , * { ', 12/ ) 

0239 528 IP(IPE£K(DRINB) ►NE.O) GC TO 52e IW AIT TILL SWITCHES ARE RELEAS 

02A 1 GO TO IRETRN JRETURN' 

C _ 

C PAUSE ROUTINE 

C .. . . .... 

0202 562 IFdPAUSE.EG.DGC TC 570 1ENCING PAUSE PERIOD? 

0200 CALL IP0KE(PCSR,0) USTART OF PAUSE) STOP CLOCK 

0205 IPAUSE*1 

0206 TYPE 560 

0207 56a FORHAT (/ * * PAUSE *») 

02«8 CALL LIGHT (LITES) 1 TURN ON APPROPRIATE LIGHTS 

0206 565 IFCIPEEK(OPINE).NE.O) GC TC 565 IMIT TILL SWITCHES ARF RELEASED 

0251 GO TO IKAIT1 1G0 t* A I T FOR ANOTHER BUTTON PU5 

0252 570 IPAUSE*C ICAHE HE»F TF ENDING PAUSF 

0253 CALL TIHR0CJHR,JMIN, JSEC) 

025a ISECsJSEC 

0255 GO TO 523 1ENC CF PAUSE PCUTINE 

0256 END 
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t f* 


I r 


i i 


fOtTHAN 

IV 

STORAGE PAP 

Mp£ 

OFFSET 

ATTRIBUTES 


PETX 

000016 

LOGICAL* 1 

ARRAY (B) 

RETIX 

00002R 

LOGICALM 

ARRAY (8) 

OUT 

oooioa 

iN.TEGERaa 

VARIABLE 

M 

00006 a 

INTEGE«*2 

VARIAELE 

F 

000066 

INTEGER*^ 

VARIABLE 

PCSR 

00007 a 

INTEGERA2 

VARIABLE 

pccb 

000076 

INTEGERS 

VARIABLE 

PCS 

000102 

IMEGER*2 

VARIABLE 


PCt 


000100 .INTEGER*? VARIABLE 


OLO 

00031a 

INTEGER*? 

variable 

DfiOUTB 

000070 

INTEGER*? 

variable 

OHIKB 

00007? 

TNTEGER*2 

VARIABLE 

SECTN 

000316 

REAL*B 

variable 

RST 

00003a 

P6AL»8 

VARIABLE 

EX . .. 

..000.046. 

REAL*6 

VARIABLE 

REC 

00005a 

REAL*® 

variable 

IFIX 

oooooo 

integer*? 

PROCEDURE 

IOSET 

000000 

integers 

PROCEDURE 

LIGHT 

oooooo 

INT£GER*2 

PROCEDURE 

LITES 

000326 

INTEGER*? 

VARIABLE 

ICT 

. 000330 

INTEGER*2 

VARIABLE 

IRETRK 

000332 

INTEGER*? 

VARIAELE 

BREATH 

OOOOOO 

REAL*6 

PROCEDURE 

TRSBL'F 

OOOOOO 

REAL*6 

PROCEDURE 

RPT30 

OOOOOO 

REAL*6 

PROCEDURE 

IRES 

00033a 

INTEGER*? 

VARIAELE 

IPEEK 

OOOOOO 

integer*? 

PROCECU»E 

I6AIT1 

000336 

INTEGER*? 

variable 

IPOKE 

OOOOOO 

INTEGER*? 

PROCEDURE 

DATA 

OOOOOO 

REAL*6 

PROCEDURE 

MREC 

0003R0 

INTEGER*? 

VARIABLE 

ILAST 

0003R2 

INTEGER*2 

VARIAPLE 

HRK AQJ 

OOOOOO 

RE AL*6 

PROCEDURE 

IPAUSE 

0003aa 

INTEGER*? 

variable 

TIHRO 

OOOOOO 

«EAL*6 

PROCEDURE 

I HR 

000366 

integer*? 

VARIAELE 

1*1* 

000350 

INTFGER*? 

variable 

ISEC 

000352 

INTEGER*? 

variable 

IMT1 

OOOOOO 

. integer*? 

PROCEDURE 

PPTHDR 

OOOOOO 

RE AL*6 

PROCEDURE 

JHR 

000356 

INTEGER*? 

variable 

J*IN 

000356 

INTEGER*? 

VARIABLE 

JSEC 

000360 

INTEGER*? 

variable 

COMPON 

BLOCK /GAS30/ LENGTH CO00 

V02 

0C-0000 

REAL *6 

variable 

VCC’2 

000006 

BE AL*6 

variable 

VOL 

000010 

RE AL*6 

variable 

IHRTH 

000016 

INTEGER*? 

variable 
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NAPE OFFSET ATTRIBUTES 

COMMON BLOCK /TTPCNT/ LENGTH 000016 


TIMBUP 

OOOOOO 

IRTEGER*2 

ARRAY (6) 

EXHCNT 

000012 

TNTEGFR*2 

variable 

COPPON 

BLOCK /PDATA/ LENGTH C06000 

IDATA 

OOOOOO 

INTEGERS 

ARRAY (1536) 

SLPYCP 

000250 „ 

REAL*6 

ARRAY (IB) 

SSNO 

OOOOOO 

INTE6ER*2 

ARRAY (3) 

UNUiKO 

000010 

INTEGERS 

ARRAY (2) 

RETRO 

000020 

INTEGER*? 

variable 

CPJC 

000022 

INTEGER*2 

variable 

DATE 

000116 

INTEGER*2 

array (3) 

NAPE 

000062 

INTEGER*2 

ARRAY (16) 

SEX 

000002 

INTEGER*? 

variable 

AGE 

000060 

INTEGER*? 

variable 

RIGHT 

0001 02 

REAL*6 

variable 

*T 

000106 

REAL*6 

variable 

KCNT 

000216 

INTEGERS 

VARIABLE 

COPPON 

BLOCK /GASCON/ LENGTH 007600 

GASBUP 

OOOOOO 

INTEGER*? 

ARRAY (2000) 

COPPCR 

BLOCK /AOCC'P 1 / LENGTH C0010O 

ADCTBP 

OOOOOO 

INTEGER*? 

ARRAY (36) 

BPTIPE 

OOOOOO 

INTEGER*2 

variable 

BPCNT1 

000052 

INTEGER*? 

variable 

BPCNT 

000066 

INTEGER*? 

variable 

gascsp 

OOOOOO 

INTEGER*2 

variable 

EXHALE 

000002 

IN TEGER*? 

VARIABLE 

SVTHRS 

COOOOu 

INTEGER*2 

variable 

FVC 

000006 

IMEGER*2 

variable 

PUSHES 

000016 

REAL*6 

VARIABLE 

PFT 

000016 

INTEGER*? 

VARIABLE 

HRTHRS 

000026 

INTEGERS 

VARIABLE 

* L 

000036 

RE AL *6 

VARIAELE 

AS 

000066 

REAL*6 

variable 

SECS30 

000070 

INTEGER*2 

variable 

SECS 

000066 

INTEGER*? 

VARIABLE 

LFLSHB 

000072 

INTEGER*? 

variable 
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0001 


SUBROUTINE NRKACJ 


0002 

0001 

0006 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 
0013 
0016 

0015 

0016 

0017 

0018 

0019 

0021 

0022 

0023 

0026 

0025 

0026 
0028 

0029 

0030 

0031 

0032 
0036 
0036 
0038 
0060 
0062 
0066 
0066 
0068 

0050 


.AUTHOR: CHARLES FAKN CONSULTANTS: PAUL SCHACHTEP 

OATE: JULY 26# 1978 STAN FINK 

PURPOSE: TO ACJLST THE KCPK LOAD CN THE BICYCLE SC THAT A 
SUBJECT'S HEART RATE HATCHES A GIVEN TARGET VALUE 
AT A GIVEN TARGET TIRE, 

SUBROUTINE: SNATCH (AS3EH8LY LANGUAGE) 

INTEGER OAC 1, C AC2, OUTPUT# IACDAT (36), ICALIB (1536) 

INTEGERS IHPAO#INLAO 
REAL HRARY(30)#ALARY(30) 

INTEGER IHR0(6) 

COMMON /AOCON 1 / IACCAT 
COMMON /POATA/ 1C ALII 

EQUIVALENCE (IAC0AT^28),ICCLNT) 10NE SECOND TIMER 

EQUIVALENCE ( ICALIB UQ1 ) ,efi£L0P ) 

EQUIVALENCE (!CALie'lQ3)#HR!NT) 

EQUIVALENCE UCALlB ( 105) # aLSLOR) 

EQUIVALENCE (ICALl8(107)#nLlNT) 

EQUIVALENCE (ICALieU5)#IHRC(l)) 1 TARGET HEART RATES 


EQUIVALENCE ( ICALIB UQ1 ) ,efi£LOP ) 

EQUIVALENCE (ICALIB'103)#HRINT) 

EQUIVALENCE ( ICALIB ( 105) #ftLSLOP) 

EQUIVALENCE (ICALie(107)#*»LlNT) 

EQUIVALENCE (ICALieCl5),IHRC(l)) ITARGET HEAHT RATES 
DATA aL/O./ 

DATA C0NSTl/.25/#CCNST2/0./ 

DATA CACl/"17676C/,CAC2/' , 17fc762/ 

DATA ISTAND/0/#lHRCFT/l/,hRS/80./ 

DATA HRARV/30«8C./ 

: CHECK FOR TREAOMILL — TM3 ROUTINE *CRKS CNLY FCR THE BIKF 

IF (ICALlB(m.NE.l) RETLRN 
: SHIFT HR INTO ARRAY 

DO 10 1*1,29 
HLARV(|)»HLARY(l4l) 

HRARYt t)#H9ARY(Ifl) 

10 CONTINUE 

; GET THE HR l AL DATA STOREC eY THE ACISR 
CALL SNATCH(IHRAD,I*LAe#IHf;CNT,I*LCNT) 

: change a/o heart rate into eph 

IF((lHRCNT.eC.O).CR.(lKLCNT.EQ.O)) GC TC 13 
HRARY(30)*HRSLCFt(AJFLT(lHRA0)/FLCAT(THRCNT))+HHINT 
NLARY(30 )*aLSLCF*(AJFLT(IKLAD)/FLCAT (IKLCNT))**LINT 
ACTHL*r.LARY(3C) 

ACTHR*HRARV(30) 

3 IF ( VQC ( I COUNT #5) . M . 0 ) GC TO 999 
IF(ICOLNT.EQ.S) GC TO 110 
IF(IC0UNT.EQ.26C) GC TO 120 
IFdCCLNT.FQ.68C) GC TO 120 
IFUCCINT.EC.72C) GC TC 120 

IF((260.LT.ICCLNT).AHD.UCCUNT.LT.3C0)) GO TO 118 
IF((680.LT.ICCLNT).ANP.UCCLNT.LT.56C)) GO TO 118 
IFU720.LT.ICCLNT). AND. (ICCUNT.LT. 780)) GO TO 118 
IF (ICCLNT.GT.9t0) GO TO 103 

standard floating *l routine 

!0 hPSOLC*hwS 
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PAGE 0C2 


0051 

0052 

0053 

0059 

0056 

0050 

^0059 

0060 ' 

0061 

0062 

0063 

0060 
0065 
0067 
0060 

0069 

0070 

0071 

0072 

0073 

0075 

0077 

0076 

0079 

0000 

0061 

ooe2 

0063 

0065 

0096 

0067 

0006 

0009 

0090 

0091 

0092 

0093 
0096 
*095 


C CALCULATE HRS(3FCCTH HP AVG.) 

DU 60 1*26*30 
60 HR3«HR3tHRARY(1) 

HR3*HRS/6. 

C CHECH TO SEE JF Hp IS CLOSE ERCUGH 

IF (A8SCPL0*T(IHRCUHPC9T))-HPS).LE.1.0) GO TO 99« 

C DON*T LET HR CHARGE TOC QUICKLY 

IE (A0S{HRS-HPSCLC).6T.5.0) GO TC 999 
C CALCULATE RE* HL 

WL0LD*HL 1SAVE CIO *L 

HL«HLOLCtCOR9Tl*(ELCATCIHPCCIHRCPT))-HRS)+CCNST2«({HPS-HRSCLO) 
t /ASS (FLOAT (IHPCCIHPCPT) )»HRS) ) 

GO TO 160 

C DETERMINE the reshhg HEART PATE 

110 WLFPE£*0. 

C CALCULATE THE AVERAGE RE3TIR6 HR FRCH PRC-EVERCISE RECORDS 
tPEST*ICALia(66) 

IR66*HCC(IREST*2) 

IRECK0*CIREST/21*IR6« 

IF (IRECNO.GT.O) GC TO 111 
HRFR£E*65. 

GO TO 113 

111 MRFREI«0. 

00 112 1*1 * IRECRO 

112 HRFREE*HRFR£E*ICALIB(25S+(I»1)*20) 

HRFREE*HRFR£E/IRECRC 

IF (HRFREE.LT. 95,) HRFREE*6«, 

IF (HRFREE.GT .70.) HRFR£E*70 . 

C SIT HRR 

113 IHRDPT*1 

C INITIALIZE *L 
WL*0, 

C GO TO STARCAPO At ROUTINE 
GO TO 60 

C END OF EXERCISE— CECREmSE »L TC 10* CF ERC IN 90 SEC 
103 *L**L*.65 

GO TO 190 
117 ISTANO*! 

116 IF (ISTANC.EG.l) GC TO 6C 
GO TO 130 

C SET N£* DESIRED HR 
120 lHPCPT*IH90PTfl 

C INITIALIZE FLAG TC HCLC A CONSTANT *L 
ISTXRO*0 

C SAVE OLD *L A HR 

hlpast«vlfree 

hPPASTsHRFREE 

C CALCULATE The C0R5TART *L VALLE 
*LF«EE*0. 

HRFR£E*0. 

DO 125 1*1 * 3^ 

*LFREE**LFR£f ♦VLAPYU) 

125 HRFREEbhRFREF^I'FARV ( I) 

HRFREF*HRFREE/3C. 
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PACE 003 


0096 

009 ? 

0090 

0099 


0101 

0103 

0109 


0105 

0107 

0109 

0110 
0111 
0112 


0113 

0119 


i*LFPEEtfti.mE/3e. 

SLftLtfftLFRtE.ftlFAST)/(HRPREE-HRPA8T) 

ftLCNSTtftiFRFF 

lF(SLftL.LC.O) CC ?C 117 

C IF TARGET HR IS LESS THAN THE CURRENT AVE. HR CP CLOSE TO IT. 

C GO TO 3TANCAR0 CCRFECTCR ftL RATHER TRAN A CONSTANT ftl . 

IF ( (IFIX (MRFREE)«1HRC( IHRCPT) ).GT.*5) GO TC 1 IT 
NLCNSTtftLFREEtSLftl * (FLOAT (iHRC(lHRrpT) )« hRFRE£) 

C fSEP ftORR LOAD CONSTANT 
130 ftLtftLCNST 

C OUTPUT THE *L VALLE TO THE BICYCLE 
C CHECK FOR MX ftCRKLOAC 
190 IF CftL.GT.300.) ftL*300. 

C CHECK FOR PIN ftORKLCAC 
IF (ftL.LT.O) ftLtO. 

0UTPUT>IFIX(6.199*ftL) 

CALL IPCKE(0AC1. OUTPUT) 

CALL IPC*ECDAC2, OUTPUT) 1EACKUF CHANNEL 

999 CONTINUE 

CC IF (ROC ( I COUNT. 15).NE.0) RETURN 

CC TYPE 825# 1 COUNT # ACTHR.HRS# IHRC (IHRCPT ) #ftL# ACT*v 'LFRFE.HRFPEE 

CC825 FORR AT ( * TIRE* I« # 3 x, # I HR **.F 9, 0#3> 'HRSft'.Ft.O.SX# 19. 3X, 

CC • *CAL ftLt*,F9.0,3x,«ACT ftL« # #F9,0.3* 

CC * » , ftLFt».Ffl,C,3X, # HRF**,F9.0) 

return 
ENO 
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FORTRAN 

IV 

STC4A6E NAP 

NAPE 

OFFSET 

ATTRIBUTE! 

a 

NR ARY 

OOOOIA 

FgAL*4 

ARRAY (30) 

*LAM 

000204 

REAL44 

ARRAY (30) 

0AC1 

000410. 

INTEGERS 

variable 

DAC2 

000412 

INTEGERS 

VARIABLE 

OUTPUT 

000440 

INTEGERS 

VARIABLE 

IHRAO 

000442 

INTEGER*4 

variable 

iwlao 

000446 

INTEGER*4 

VARIABLE 

ML 

000374 

REAL*« 

VARIABLE 

C0NST1 

000400 

REAL*4. 

VARIABLE 

CONST 2 

000404 

R£AL*4 

VARIABLE 

ISTAND 

0004 1<I 

INTEGER*2 

variable 

Ihpopt 

000416 

INT£GE«*2 

VARIABLE 

HRS 

000420 

fi€AL*4 

variable 

I 

000452 

INTEG£P*2 

variable 

snatch 

000000 

REAL*4 

PROCEDURE. 

ihrcnt 

000454 

INTEGER*2 

VARIABLE 

INLCNT 

000456 

INTEGER*2 

VARIABLE 

AJFLT 

000000 

P£AL*4 

PROCEDURE 

FLOAT 

000000 

RE AL*4 

PRCCECURE 

ACTfcL 

000460 

R£Al*4 

variable 

ACTHR 

000464 

fi£AL*4 

variable 

MOO 

000000 

INTEGER*? 

PROCEDURE 

HRSOLD 

000470 

R£AL*4 

VARIABLE 

ABS 

000000 

RE AL *4 

PROCEDURE 

*LOLO 

000474 

RE AL*4 

variable 

wlfree 

000500 

R£AL*4 

variable 

IREST 

000504 

INTEGER*? 

variable 

l»64 

000506 

INT6GER*2 

variable 

IWECNO 

0V0510 

INTEGER*2 

VARIABLE 

HfiFREfc 

000512 

RE AL*4 

variable 

WLPAST 

000516 

PE Al*4 

variable 

MRPAST 

000522 

PE AL*4 

VARIAFLE 

SLKl 

000526 

P£AL*4 

VARIABLE 

wLCNST 

000532 

R£AL*4 

variable 

IF IX 

000000 

INTEGER*? 

PRCCECURE 

IP0K6 

000000 

INTEGER*? 

PROCEDURE 


COMMON 

BLOCK /A0C0V1/ 

LENGTH C00104 

I ADD A T 

000000 

INTEG£R*2 

ARRAY (34) 

ICCUNT 

000066 

INTEGER*2 

variable 

COMMON 

BLCCK /POATA/ 

LENGTH C0600C 

icalib 

000000 

INTEGER *2 

ARRAY (1536) 

HRSLOP 

000310 

RE AL*4 


variable 

HRINT 

000314 

RE Al *4 


variable 

WLSLCP 

000320 

REAL+4 


VARIABLE 

WLINT 

000324 

REAL*4 


variable 

IhRD 

000034 

INTEGER*? 

ARRAY (4) 
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012601 

MCV 

~(SP)*»R1 

41 

00172 

106427 

FTPS 

40 



000000 



4 2 

4> 

o 

o 

000207 

RTS 

PC 

43 





44 


000000* 

•CSECT 

A0CCP1 

45 



.PIKA 

9. ' 

46 

00022 

000000 AHRCNT: 

.ACRD 

0 

47 

00024 

000000 AHR T : 

.aCRD 

0 

48 

00026 

000000 CHR : 

.ACRD 

0 

49 

00030 

000000 Chfll s 

.ACRD 

0 

SO 



. filKW 

5. 

51 

00044 

001046 uptime : 

.ACRD 

550. 

52 



• £LKw 

2. 

53 

00052 

000000 9PCKT1* 

.ACRC 

0. 

5« 



• BLK a 

4. 

55 

00064 

000012 5PCNT: 

.ACRD 

10. 

56 

00066 

000000 SECS: 

• A0RC 

0 

57 



.blka 

6 

58 


000000* 

.CSECT 

GAS30 

59 

00000 

V02: 

.BLKA 

7. 

60 


000000* 

.CSECT 

GAS30C 

61 

00000 

V02C: 

.BLAA 

7. 

62 


000000* 

.CSECT 

ADCC*2 

63 

00000 

000000 AHRCs 

. ACRC 

0. 

64 

00002 

000000 AHPTC: 

.aorc 

0 

65 

00004 

000000 CHRC: 

.ACRD 

0 

66 

00006 

000000 CHRIC: 

• ACRD 

0 

67 



.BUKA 

5. 

68 

00022 

000000 8PTC: 

.ACRD 

0 

69 



.blka 

2. 

70 

00030 

000000 8PCT1C: 

.ACRC 

0 

71 



.euka 

5. 

72 

o 

o 

o 

Cl 

000000 SECSC: 

. a 0 R D 

0 

73 



• BUKA 

1 

74 


000001* 

.ENC 
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PAGE 001 


0001 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0027 

0028 

0029 

0030 

0031 

0032 

0034 

0035 

0036 

0037 

0039 

0040 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


f 

c 


cc 

1 

c 

6 

c 

c 


SUBROUTINE eREATH 


VERSION: 2.0 
AUTHOR: CHARLES MANN 

DATE: SEPTEMBER 1«» 1978 

MODIFIED BY: *ILLIAM G. CROSIER 

OATEl 10 SIP 79 

PURPOSE: TO CP TERR IKE THE OXYGEN CONSUMPTION ANO THE CARBON 
DIOXIDE PRODUCTION IN EACH EREATH* 


INTEGER GAS8UF(200 0).CAtieU536)#TIME(6) 
REAL N2#N2SLP,N2INT,N20UT,N2AM8 
COMMON /GASCON / GASEUF 
/PDATA/ CAL 1 6 

/GAS30/ V02*VCC2»VCL#IBPTH 
/’I«CNT/ TINE 

/ADCONl/ IECBPT,ICLNNYt33) 

(CALIB (73) #STFC) 

CCALI6 (75) #ETFS) 
(CALIB(77)»C2AM8) 

(CALIE (79) #N2ANE ) 
(CALIB(fil)»CC2AM0) 
(CALIE(85),VCLSLP) 
(CALI6(87)#VCLINT) 
(CALIB(fi9)#C2SLF) 

(CALT8(51 ) » C2 I N T ) 
(CALIP(93).N2SLP) 
(CALIE(55),N2INT) 

(CALIE (57) #CC2SLP) 

(CALIE (59), CC2INT) 

(TINE (6) # IECEFG) 

CF THE ENO CF THE 


COMMON 
COMMON 
COMMON 
CGMMCft 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 

equivalence 

equivalence 

equivalence 

equivalence 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

equivalence 

EQUIVALENCE 

equivalence 

equivalence 

STORE SUBSCRIPT 


•END OF BREATH POINTER IN GASBLF 


JEND OF BREATH FLAG: COUNTS ePEA 
BREATH SAMPLE 


IEOBPsTEOBPT . 

IP0lNT*IE0BP-3 
IFdPGINT.LT.I )IPCINTsl 
TYPE ltfGAS9UP(I)»I«l#IECePT) 

FORMAT (/ , 1 X ,8 ( l x , 15) ) 

DECR6MF\t A /0 eREATH COUNTER TC SHC'A THAT THIS ONE IS BEING PROCESSED 
IE08FGsIE0PFG-i 
IEOBFs IEOBFG 

INCREMENT THE BREATH COUNTER FCR Tt-E 3C SEC REPORT 
TBPThsIBRTh+i 

LOCATE maximum SFIRGMETER VCLUME 
JPOlMsIPOIN.T-124 
IF(JPOlKT.LT.l)JPCINTsl 
MAXVOLsGASBUF(JFOINT) 

IENDsJPCINT 

CO 10 I s J P 0 1 N T , IPCINT ,4 

IP (GASBUF(I).LT.MAXVCU C-0 TC 10 
MAXVOLsGASELF (I ) 

IENOsI 1SUESCRIPT CF MAX VOLUME 
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PAGF. 00? 


I 

K 

K 

I 


0041 


004 ? 

0043 

0045 

0046 

0047 

0048 

0044 

0050 

0051 
005 ? 

0053 

0054 

0056 

0057 
005 * 

0059 


m- 

r oofei 

f 

T 0062 

l 

0063 

ft 

I 



J 0064 

I 


S. 

0065 


f 0066 

1 : 

|. 


• 

I 0067 

1 

f 

*0068 


0069 


o 

o 

o 

f- 

r 007 l 

r 

J 0072 


*0073 

| 

N 

O 

O 


0076 

i 

Too 7 e 

%■ 

*0079 


ooeo 

V 

L 

fOOBl 

f 

*0063 


0065 


10 CONTINUE 
C 

C AVERAGE GAS CONCENTRATIONS AT (.AST 5 POINTS CF BREATH TO REMCVE NOISE 
ISTART«IEN0-16 
IPUSTART.LT. t)ISTART*l 

. L02*0 

IN 2*0 
ICQ2*0 

00 ?0 I*ISTART,1ENC,4 
ICO?*IC02+GASEL'F(I*3) 

I02*IC2^GASGLF(l4l) 

IN2*IN2^GAS6UF(I+2) 

20 CONTINUE 

I0tF*t(IEN0-ISTART}44)/« 

IFUOIF.LT.mCIF*! 

IO2*IC2/I0IF 

IN2*IN2/I0IF 

IC02*ICC2/I0IF 

C AVERAGE LAST 3 5PIRC. VC. SAMPLES TC GET TIDAL VCIUME 
IF f IENC.GE .13) MAXV0L*(GASeUFCI£NC-4)tGASeuFUENC-e) 
a ♦GAS6UF(IENC-l2))/3 
C_ 

C USE CALIPRA-TION FACTORS TO CONVERT A/C COUNTS INTO PERCENTAGES 
02*02SLP*FL0ATU02)f02IM 
N2*N2SLP*FLCAT(IN2)4N2TNT 
C02*C02 SLP*FlC AT( ICC2) fCC2 IN T 

c use calibration factors to ccnvert a/d cccunts into liters 

VOLOLT*VOLSLP*FLOAT(MAXVCL)4VOLINT 
C INCREMENT MINUTE VOLUME 
VOL*VOL+VOLOLT*ETPS 
CC TYPE 100, I8RTH,C2,N2,C02,VCL 

100 FORMAT!/, IX, MBSTF 02 N2 C02 VOL * , 14,4 (?X ,FP ,2)1 
C 

c NORMALIZE MASS 8FFC. DATA TC CORRECT FCR DRIFT 
ALl*024N2+C02 
020UTSC2/ALL 
N20UTSN2/ALL 
C020UT*C02/ALL 
C 

C INCREMENT THE 02 CCN'SLMPTICN AND CC2 PROCLCTICN 
STPVQL * STPC * VCLCUT 

V02 * VC2 ♦ STPVOL * ((0?AME/N2AMg)*N2CtT - 020UT) 

VC02 * VC02 ♦ STPVCL * (CC2CUT • (CC2AMS/N2AN0)*N2OUT) 

C 

C CHECK TC SEE IF THERF IS ANOTHER BREATH TC CEAL VlTH 

IF ( IEOBFG .EC .0 ) GC TO ROC l NC MORE BREATHS, RETURN 
IF(IEOBF.EG.O) GC TC 200 I NC PRICE BREATHS 
C FIND ENC OF PREVIOUS BREATH 

IREF*(0.3-VCLINT)/VCLSLP 
I PO IN T * IENO 
150 lPOINTsIPOINT-0 

IF (IPOINT.LT. til) GC TO 160 18RE ATH .LT. 0.1 SEC. LONG 
IF(GASeLFCIPCINT).GT.IREF) GG TC 150 
GC TC 6 
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0086 160 IEOBFG«IEO8FG-IEO0F ICCULDN'T FIND PREVIOUS EOB(S) 

0087 200 IF (IEOfiPT .GT. IECeP) GC TC 5 1 A NEN BREATH IS FINISHED 

C RESET POINTER TO THE BEGINNING OF THE GAS BUFFER 

0089 900 IEOBPTaO 

0090 RETURN 

0091 _£ NJO _ ... .... .. . 


FORTRAN IV 


STORAGE RAF 


WARE 

OFFSET 

ATTRIBUTES 

N2 

000102 

REAL*0 

variable 

N20UT 

000106 

REAL*0 

VARIABLE . 

IE06P 

000112 

INTEGER*2 

variable 

IPOINT. 

0001 H— 

-INTEGER *2 - 

.VARIABLE 

IEOBF 

000116 

INTEGER*2 

variable 

JPOINT 

000120 

INTEGER*! 

variable 

WAX VOL 

000122 

INTIGER*2 

variable 

IEND 

000120 

INTEGER*! 

variable 

I 

000126 

INTEGER*! 

variable 

I8TART 

000130 

INTEGE»*2 

variable 

102 

000132 

INTEGERS 

variable 

IN2 

000130 

INTEGER*! 

VAPIABLF 

IC02 

000136 

INTIGER*2 

VARIABLE 

IOIF 

000140 

INTEGER*2 

variable 

02 

000102 

R£AL*0 

variaple 

FLOAT 

oooooo„ 

R£AL*0 

PRCCECURE ... 

C02 

000106 

REAL*0 

variable 

VOLCUT 

000152 

REAL*0 

VARIABLE 

ALL 

000156 

RE AL*0 

variable 

020UT 

000162 

RFAL*0 

variaple 

C020UT 

dOO 1 66 

real*o 

variable 

STPVOL 

000172 

REAL*4 

variable 

IREF 

000176 

INTEGER*2 

VARIABLE 

CORROK 

eLOCK /GASCCR/ LENGTH C0760C 

GASRUF 

000000 

INTEGER*? 

ARRAY (2000) 

CORRCN 

eLOCK /PDATA/ LENGTH 006000 

CALIB 

000000 

INTEGER*! 

ARRAY (1536) 

STPO 

000220 

real*o 

variable 

8TPS 

000224 

real*o 

VARIABLE 

O2AR0 

000230 

REAL*o 

variable 

N2A*B 

000230 

REAL*0 

variable 

C02ARB 

000200 

«EAL*o 

variable 

VOLSLP 

0C0250 

RE AL*o 

VARIABLE 

VOLIKT 

000250 

REAL*o 

VARIABLE 

02SLP 

000260 

real*o 

variable 

02INT 

000260 

REAL*0 

variable 

N2SLP 

000270 

real*o 

VARIABLE 

N2INT 

000270 

kEAL*0 

VARIABLE 

C02SLP 

000300 

RE al*o 

VARIABLE 

C02INT 

000300 

Rfc AL*0 

variable 

CORRCA. 

BLOCK /GAS30/ LENGTH 000016 

V02 

000000 

R£AL*0 

variable 

VC02 

OOOGOO 

RE al*o 

VARIABLE 

VOL 

ooooto 

RE AL *0 

VARIABLE 

IBRTH 

C0001O 

INTEGER*2 

variable 
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FORTRAN Iv STORAGE RAP 

WARE OFFSET ATTRIBUTES 

COMMON BLOCK /TIMCNT/ LENGTH COOOU 

r ( >' E OOOOOO INTEGER*? ARRAY (6) 
*c06FG000012 INTEGER*? VAPIAELE . 

COMMON BLOCK /AOCOMI/ LENGTH 000104 

I'EOBPT OOOOOO INTEGER*? VARIABLE 
I DUMMY 000002 INTEGER*? ARRAY (33) 


FORTRAN IV 
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PARE 001 


0001 

0002 

0003 

0004 

0005 
0000 . 
0007 
0004 

0009 

0010 
0011 
0012 


0013 

0019 

0015 

0016 
0017 
0010 

0020 
0022 

0029 
0026 
0020 

0030 
0032 
0039 
0039 
0030 
0090 
0092 
0094 
0096 
0096 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 
005* 

0059 

0060 


CC— SUBROUTINE TO PRINT THE 3C SEC* REPORT 
C»- 

C— .. WRITTEN Eft ROT A. PEEC 
C-- DATES 13-CCT-7B 

SUBROUTINE RPT3C 

INTEGER NUN# IM*P » IBLK . — . 

INTEGER OATBUP (20) 

INTEGER IBRTH»CKLCNT# AHRCNT#BPCNT#BPCNT1 
INTEGER** CSPC* AHR#C WL*C SEP f COBP 

REAL 40 A tA( 640) - — 

REAL VG2#VC02#VCL»RCATA(24) 

REAL HR,HL#AS#SPP»CBP 

COMHON /GAS30C/V02,VCO?.VCL#I*RTH 

COMP. ON ./POATA/ICATAt 1536) 

CONPON /A0C0P2/CAT6LF 

.. EQUIVALENCE (C ATBUF (5) * APR ) » tOATBUE (7) #CwL ) # 

XCDATBUF (9)#CNLCNT)#(DATBLF(ll)»C8PD)» 

X ( DATBUF (13)«BPCNT!)»(CATBLF(14)»CS6P)* 

%CDAT9UF (16)#CCEP.)»(CATBUF(1S) »8PCNT) # 
X(0ATBUF(1)#AHPCKT) 

EQUIVALENCE (ICATA(257)*CCATA(1)) 

EQUIVALENCE (ICATA(72),NLP) 

EQUIVALENCE (irATA(73)#RCATA(t))#CICATA(52)»WT) 

DATA I8LK/2H / 

OATA INUP/2H / 

IF(IAJFLT(AHR,HR).EC.-2)STCP 

IF(IAJFLT{C*L,*L).6C.-2)8TOP 

IFCIAJFLUCSPC,AS).EQ.-2)STCP 

IF(IAJFLT(CSBP»SSP).EQ.«2)ST0P 

IF(IAJFLT(CCBP,CPP).EC.-2)ST0P 

IF(HR.NE.O.)Hfi*(HR/FLOAT(AHRCNT))*RCATAU5)*POATA(16) 

IFTNL.NE.O.)WL*(NL/FLOAT(CALCNT))*BCATAU7)*ROATAUP) 

IF(AS.fcE.0.)A8*(AS/FLCAT(C*LCNT))*RCATA(19)*PCATA(20> 

IF(SeP.NE.0.)SeP«(SeP/FLCAT(BPCNT))*P0ATAC2n*R0ATA(22) 

IF(0BP.NE.0.)CeP«(CBP/FLCAT(BPCNT))*PCATA(23)*R0ATA(24) 

IF(NUP.EQ.1)TWL*0. 

IF(HR.LT.O,)HRiO. 

IF(*L.LT.0.)KL«C. 

IF(AS.LT.O.)AS«0. 

... IF(SBP,LT.35.)SEP»0. . 

IF(0BP.LT.35.)CEP«0. 

V02L W *0. 

VC02LP*0. 

V02**P*0. 

TV0L«0, 

... .. RER«0. , , - 

IRRsO 

R*V02*0. 

RPVC02*0. 

V02HRP»0. 

IPEP**CC(NUP,2) 

NNUMsNtP/2 


125 


FORTRAAIV V01C-03A M! 26-PCB«00 PAGE 002 

, ooiTi IF C IREP.EQ.O )EKCflOI (I* 91 » IMP) AMP 

0063 51 F0R*AT(I2) . _ 

006« V02LP»VG2*2. 

0065 V02PKP«CVQ2LM100C.)/AT 

0066 VC02U»«VC02*2. 

*.—•061 ... . TVQL*V0L*2. ..* - ...... 

0060 IF(V02LP.6T.0.)AEG>VC02LM/VC2LP 

0070. — IRR#IBRTH*2 

0071 IF(V02LP.6T.0.)RPVC2«TVCL/VC2t.P 

0073 IFtVC02LW.6T,0)F*VCC2«mi./*C02LF 

0075 IF(HR.NF.O.)VC2PRP«(VO21M1C0O.)/M» 

.. 0077* * IHR«IFI*(HR».51_ . . „ 

0070 l$iP«IFI*<S8R4.f) 

007° I08P»IF1X (OOPt .?) 

0000 XF(IDAT«(12).EG.2)GC TO 200 

— 0002 TM«TMUM/2.) 

0003 IT6L«IF|X(TM.*.«) 

. 000* . fM*IPI*C*L*.5>. 

0005 GO TO 300 

0006 200 CONTINUE 

0007 1M«IFIX<M*10.*.5) 

0008 TM«A3 

0000 ITM*IF IX ( A8+.5) 

... 0000 300 . .TjfPE 600»IMP#IPR#I8RP»IC8P#M#TM*V02LF#V02MKP,vC02LM# 

XTVOL»RER# IRR#RPVC2#RPVCC2# VC2PR8 

0001 600 F0RPATClX # A2,3UX,X7),F8.1,F7.i,FF.2,F«.l,2X, 


0002 

0003 

0096 

0005 

0006 
0007 


%F0.2#Ff.l#F7«2#I7#lX*JF0.1) 

IRE3T«ICATAC6«) 

IEX>I0ATA(60) 

NPT«IRE8T*IEXt(AUF-l)/2 

*«257*NPT*20 

KRs6*NPT*10 

KK*2-IU£M 


CD TYPE 6SO#IOATA(66), IDATA <68 ) #NU*#APT ,* ,KR # *K , IRE* 

0000 650 FORPAT (/# 1X» * ICATA 66 ICATA 60 M* APT ',6<1X,I5), 

*/flX,?.K.KR KX...IREP ',«(!*, I5)> 

0000 IF(IPEP.EG.0)6C TC 550 


0101 KKK«*M9 

0102 00 500 KZsK,KK* 

0103 500 I0ATA(KZ)«0 

010O 550 IF(MM.AE.0)ICATACX)«(MP/2)fIRE*' 

0106 IF(lHR,KE.0)lCATA(*<4n«(ICATA(X4n*lHR)/FA 

0100 IF( I80P. NE.O) ICATA CAf2)t( ICATA (Kf2)«I88P) 

0110 XF(IO0P,NE.O)ICATA(Nf3)«(TCATA(«tf3)fIOPP) 

0112 IF(lM..A6.e)ICATA(M6)«{ICATA(**6)fI*(.)/*A 

0116 XF(X»R.NE.0)ICATA(IU5)s<ICATA(iu5) + !PR)/kk 

0116 IF (V02(.P.NE.O)CCATA(KP)«(CCATA(KR)fVC2LP) /FLOAT (KK) 

0110 !F(VC02LW.NE.dCOATA(KRtl)t(OOATA(KRfl)fVCC2LP)/FLOAT(PK) 

0120 IF{TVOL.NE.O)CCATA(t»Rf21«(CCATA{KRf2)fTVOL)/FLOAT(Kt<) 

0122 IFtA8.AE.O)OCATAC«Pf3)»{CCATA(XPf3)4A8)/FtOAT(XX) 

0126 IF(IT*L.NE,0.AAC.ICATA(12) .EC . 1 ) IC AT A < 6) * I T*L 

0126 IMP«I8LP 

0127 RETURN 

0128 ENO 
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FORTRAN 

IV 

STORAGE MAP 

nY#i~' 

OFFSET 

ATTRIBUTES 

1 

INUM 

000016 

INTEGER *2 

VARIABLE 

I8LK 

000014 

INTEGERS 

variable 

HR 

000200 

R£AL*4 

variable 

Hi. .. 

000212.. 

R£AL*4 . 

VARIABLE _ 

AS 

000210 

R£AL*4 

variable 

SBP 

000222 

REAt*4 

VARIABLE 

DBF 

000220 

RCAL*4 

variable 

IAJFIT 

000000 ~ 

IMEGER42 

PROCECURE 

FLOAT 

000000 

REAL*© 

PROCECURE 

THU 

000232 . 

PEAL*4 . 

VARIABLE 

V02LM 

00023© 

REAL*4 

variable 

VC02LM 

000242 

REAL*4 

variable 

V02MMM 

000240 

REAl*4 

variable 

TVOL 

0002S2 

REAL*4 

variable 

REA 

000250 

REAL*4 

VARIABLE 

IRft .. .. , 

„000262 . 

INTEGER*? 

VARIABLE 

RMV02 

0002o« 

R£AL*4 

variable 

RMVC02 

000270 

REAL*4 

variable 

V02HRB 

000274 

REAL*4 

VARIABLE 

IRE* 

000300 

INTEGER*2 

variable 

MOO 

oooooo 

INTEGER*? 

PRCCECURF 

NNUM 

000302 

INTEGER*2 

variable 

I HR 

000304 

INTEGER*? 

VARIABLE 

IFIX 

oooooo 

INT£G£R*2 

PROCECURE 

ISf P 

000306 

INTEGER*? 

variable 

I0BP 

000310 

INTEGER*? 

variable 

ITH 

000312 

INTEGER*2 

variable 

IHL 

000.314 

INTEGER*? 

variable 

IRSST 

000316 

INTEGER*? 

VARIABLE 

IEX 

000320 

INTEGER*2 

variable 

HPT 

000322 

INTEGER*? 

VARIABLE 

K 

000324 

INTEGER*? 

VARIABLE 

KR 

000326 

INTEGER*? 

VARIABLE 

KK 

000330 

INTEG£R*2 

variable 

KKH 

00033? 

INTEGER*? 

VARIABLE 

«Z 

000334 

INTEGER*2 

variable 

COMMON 

BLOCK /GA330C/ LENGTH C00016 

V02 

oooooo 

RgAL*4 

variable 

'CG2 

000004 

R£AL*4 

VARIABLE 

VOL 

000010 

RE AL*4 

variable 

IBRTH 

000014 

INTEGER*2 

variable 

COMMON 

BLOCK /PC AT A/ LENGTH C06000 

toata 

OOOOOO 

INTE6E«*2 

array (1536) 

OOATA 

001000 

RE AL*4 

ARRAY (640) 

MUM 

000216 

integer*? 

variable 

RCATA 

000220 

RfAL*4 

ARRAY (24) 

M T 

000146 

RE AL*4 

VARIABLE 
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FORTRAN IV STORAGE VAR 

NAME OFFSET ATTRIBUTES 


COMMON BLOCK /AOCCM2/ LENGTH 000050 


OATBUF 000000 INTEGER*? 
AHR .... .000010 INTEGERS 
CftL OOOfJO INTEGER*^ 
CMLCNT 000020 INTEGER*? 
CSPO 000020 INTEGER*a 
BPCNTf 000030. INTEGER*? 
CSBP 000032 lNTEGER*a 
CDBP 000030 INTEG£R*a 
BPCNT 000002 INTEGER*? 
AHPCNT 000000 INTF^ER*? 


ARRAY (20) 
VARIABLE 

variable 

variable 

variable 

VARIABLE 
VARIABLE 
VARIABLE . 
VARIABLE 
VARIABLE 


FORTRAN IV 
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PAGF not 


0001 

0002 

0003 

0004 

0005 


0006 


0007 

0009 

0010 
0011 
0012 
0013 
OOIU 

0015 

0016 

0017 

0018 

0019 

0020 
0021 


0022 
' 0023 


0024 

0026 

0027 


C— SUBROUTINE RPTHDR, VERSION 2.0 29 AUG. 1979 

C— PRINTS HEADING FCP 30-SECONC SUNN ARY REPORT FOR PRCCES 

C 

SUBROUTINE RPTHCR 

INTEGER EXSTPT,RCSTRT 

INTEGER AGE.INIG.TESTRT »Kl$LM _ 

REAL fcT,HT,AVTENP,AVPRES 
CO M MON/POATA/ICLN1#ISEX,NNSSECC35**LSUN# 
3UNIQ(2),NVRTST,ICPIC,IM0CE,ITSTYP. 
3I0UM3(2),IHR4,lHRe,lHR12,lHR16,I0UV4,lHRMAX, 
aiOUNS. IBTHDY(3i . AGE ,NAVE ( 1 4 ) , ITC ATE (3) , 
9IDUN6(7),HT,V.T,ANTENP, 
aiDUM7,ANPRES,mve(2),TE$TRT<3), 

3NREST ,EXSTRT(3)»N£XPEC,RCSTRT(3)» 

3NREC 

COMMON /X/ VO (24 ) 

C DATA MC/'JA','N S'FE'.'E ','MA','R ','AP','R ', 

C 3'MA','Y ','JL'*'N .f , * JL # *. *L . ' » * AU ' , *G ','SE','P 
C 3'00','T * , 'NO * , * V ','DE','C '/ 

C * * * PRINT PAGE HEAOING * * * 

C * * * USE TMX OR BX HEADER * * * 

C ITSTYP(1)=BIKE 

C ISTYP(2)=TMX 

170 IF ( ITSTYP.EG. 1 ) GC TO 210 
TYPE 1 AO 

180 F0RMAT(48X, 'EXERCISE RESPONSE TEST? TREADMILL') 

GOTO 190 
210 TYPE 200 

200 F0RMAT(48X, 'EXERCISE RESPONSE TEST: ERGONETEP ' ) 

190 TYPE 220 

220 F0RMATC50X, 'JSC CARCIOPLLVCN ARY IAECRATCPY') 

TYPE 230 

230 FORMAT (56X, '30 SECOND SUMMARY') 

IMMs2*(ITDATEC1)) 

IMMlsIW-l 

c * * * PRINT Siej I NFC * * * 

TYPE 240,ICPIC,(NVSSEC(J),Jsi,3), 

aiT0ATE(2),VD(IVM),V0(IW),ITDATE(3),(tMG(I),Isl # 2) 
240 F0RM6T(/,' CPIC NC: ' , IS # 1 2X , 

S'SS NO 5 ',I3,'-',I2,'-',I4,ex, 
a'DATE OF TEST: 12, 1 X, 2 A 2 ,I 2 , 

aiox , 'unique nc: ',A2,l4j 

TYPE 250,TESTRT(1 ),TESTPT(2) ,TESTRT(3) ,*T,AGE 
250 FORNATdX, 'START TINE OF TEST: ' , 12 , ' : ' , 12, ' : ' , 12, 
X14X, 'kEIGht(kG) : ' ,F5. 1 , 

X14X,«AGE (YRS) : ',12) 
c * * * PRINT COLUMN HEADINGS * * * 

C IF TMX TEST, PRINT TMX HEACINGS 

IF (ITSTYP.EG . 1 ) GOTO 260 
TYPE 270 

27 0 FORMAT (//, 'XM1N',5X, 'HP'»4X, 'SBP'»5X» 'D8P'»4X, ' ELE V ' , 
S3X, 'SPEED', 4X, '\— VCP. — — \',3X, 'VCC2',5X, 'V VOL ' , 
33X,' PER', 4X, 'RE SP',5x, ' mv/VC?', 2X,'W/VC02',3X, 

$ ' V02/HR * ) 
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PAGE 002 


0028 

0029 


0030 

0031 

0032 


0033 

0039 


0035 

0036 

0037 


TYPE 2eo 

280 FORMAT ( * AVG*#9X# *BPM*»3X# # NM HG'#3>#*NN HG # #3X# 

3>'% GR0*,3X, »yPH',5X, # L/MN N L/KG/N N ' # 3X , 'L/VIN # # 
«jax# , l»/ M IN , #l0Xf*RATE , #22X# , NL/8£AT*) 

GOTO 290 

260 TYPE 300 

300 F0RMAT(//# , xyiN , #5X# , HR , #AX» , S§P # #5X#*DBP # *AX» # PCfc€R*# 

«2X,'*L SUM # ,3X, *\— V02 •— \*.3X, *VCC2 # ,5X, »M VGL'# 
83X, »RER*,9X, »RE8P*#5X, *NV/VC2 # #2X, # NV/VC02 # ,3X, 

8* V02/HR * ) 

TYPE 310 

310 FORMAT ( * AVGS9F# *ePM # #3X, # NM HG # #3X,»yw HG # #3X, 
a*^ArT8 # »3x, 'fc-yiN # .3x# *l/nn ml/kg/fn^x. 'l/mins 

a«X,*L/MINS10X, »RATE»»22X, # NL/BEAT») 

290 CONTINUE 
RETURN 
END 
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I 


I 

I 

I 
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FORTRAN IV STORAGE MAP 

NAME OFFSET" ATTRIBUTES 

I MM 001400 INTEGER*? VARIABLE 

IMM1 001402 INTEGER*2 VARIABLE 

J 001404 INTEGER*? VARIABLE 

I _ 001406 INTEGER*?. VARIABLE 


COMMON eLQCK /PDATA/ 


LENGTH 000220 


IDUMl 

I SEX 

NMSSEC 

wLSUM 

UNIO 

NMRTST 

ICPIO 

IMODE 

ITSTYP 

I0UM3 

IHR4 

IHR8 

IMP 1 2 

IHR 1 6 

IDUM4 

IHRMAX 

IDUM5 

IBTHOY 

AGE 

NAME 

ITDATE’ 

IDUM6 

HT 

WT 

AMTEMP 

IOUM7 

AMPRES 

I0UM8 

TESTRT 

NREST 

EXSTRT 

NEXREC 

RCSTPT 

NREC 


000000 

000002 

000004 

000012 

000014 

000020 

000022 

000024 

000026 

000030 

000034 

000036 

ooooao 

000042 

000044 

000046 

000050 

000052 

000060 

000062 

000116 

00012a 

000142 

000146 

000152 

000156 

000160 

000164 

000170 

00U176 

000200 

000206 

000210 

000216 


INTEGER*2 

INTEGER*2 

INTEGER*2 

INT£GER*2 

INTEGER*2 

INTEGER*2 

INTEGER*2 

.INTEGER *2 

INTEGER*2 

INTEGE«*2 

INTEGER*2 

INTEGER*2 

INTEGER*2 

INTEGER*2 

INTEGER*2 

INTEGER*2 

INTEGER*2 

INTEGER*2 

INTEGEH*2 

INTEGER*? 

INTEGER*? 

INTEGER*2 

REAL*4 

PE AL*4 

RE AL*4 

INTEGER*? 

REAL*4 

INTEGER*2 

INTEGER*? 

INTEGER*? 

INTEGEP*2 

INJEGER*? 

INTEGER*? 

INTEGER*? 


VARIABLE 
V AR I ABLE 
ARRAY (3) 

variable 

ARRAY (2) 

variable 

variable 

variable 

variable 

ARRAY C2) 

variable 

variable 

variable 

VARIABLE 

variable 
variable 
variable 
array (3) ... 
variable 

ARRAY (14) 
ARRAY (3) 
ARRAY (7) 

variable 

variable 

VARIABLE 
VARIABLE 
VARIABLE 
ARRAY (2) 
ARRAY (3) 

variable 

ARRAY (3) 
VARIABLE 
ARRAY (3) 

vapiaele 


COMMON eLOCK /%/ LE* GTR OOOOfcO 

MO 000000 INTEGER*2 ARRAY (24) 


V01C-03A PRI 29-FEB-PC 14*47:14 


PAGE 001 


FORTRAN |V 

0001 SUBROUTINE TIVSET 

C PURPOSE: SET TIMERS TO KEEP TRACK CP TIKE 

C OF 0 A Y WITHOUT CHANGING 3YSTE* CLOCK 

C WRITTEN BY WlLLIAK CROSIER 

C OATE 21-N0V-79 

0002 integer hrTnnVsc 

0003 REAL to,ti 

0004 C0KM0N/TIM/T1 

0005 DATA Tl/O./ 

0006 10 TYPE 110 

0007 110. .. FORMATS TINE PROF THE. TIKE CODE GENERATOR/REAC _R 

X(HRlKN:SC ) ?•#!) 

0008 ACCEPT 120*HR»NN»SC 

0009 120 F0RNAT(I2,1X,I2,1X,I2) 

. C . ... GET NO* OF SECGNOS SINCE SYSTEK BOOT OR CLOCK SET 

0010 TOsSECNCSIO.) 

0011 IFCHR.LT.0.OR.HR.GT.23.CR.KN.LT.O.OR.KK.GT.59.OP. 
XSC.LT.0.0R.SC.GT.59) GO TC 10 

0013 . T1*T 0*( FLOAT (SC ) +60 »*FLOAT (KNJ+360 0 •♦FLOAT (HR)) 

0014 RETURN 

0015 ENO 
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FORTRAN IV 
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C 

0001 

C 

C 

C 

.C . 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 


SUBROUTINE TIRRCCRR,RN,$C) 

PURPOSE* READ TIRE OF DAY, LSIN6 SYSTER CLOCK AND 
PREVIOUSLY CALCUATEO TIRE DIFFERENCE BETWEEN 
SYSTER CLOCK TIRE AND TIRE CODE GEN. TIRE 

INTEGER MR,RN,Sc7rER* 

C0RR0N/TIR/T1 

T*StCNCS(0.)«Tl 

HRslFlXCT/3600.) 

RER«IFIK(T-FLCATO-R)*3600.) 

MN.aPER/feO 

SC*RER-(MN*60) 

RETURN 

END 


FORTRAN 

IV 

STORAGE NAP 


NAME " 

OFFSET 

ATTRIBUTES 

i 


HR 

000014 

INTEGERS 

PARAMETER 

VARIABLE 

MN 

000016 

INTEGERS 

PARAMETER 

variable 

SC 

000020 

INTE6ER*2 

parameter 

variable 

REM 

000026 

. INTEGERS 

VARIABLE _ 

. 

T 

000030 

R£AL*« 

VARIABLE 


SECNOS 

000000 

R£AL*4 

PROCEDURE 


IFIX 

000000 

INTEGERS 

PROCEDURE 


FLOAT 

000000 

REAL*« 

PROCEDURE 



COMMON BLOCK /TIN/ length oooooa 

Tt OOOOOO R£AL*« VARIABLE 


FORTRAN IV 


VOIC«OJA FRI 29-FFe*eo 14*50*23 


PAGE 


ooot 

0002 

0003 

0004 
.. 0005 


0006 

0007 


SUBROUTINE LIGHT(L) 

C SUBROUTINE LIGHT — TURN! ON APPROPRIATE PANEL LIGHTS 
INTEGER OROUTB 
GROUTS i "167772 

L * IPEEK(OROLTE). AND. "177400 .OR. L 

. _ CALL IPOKE-CDRCLTBrL) 

0 TYPE 1 #L 
Dt FORMAT C* L«'#Q7> 

RETURN 

END 


I 
K 
I 
I 

f I 


t i: 


i 

f I: 

i r 


FORTRAN TV 


STORAGE VAp 


NAME OFFSET ATTRIBUTES 

L OOOOltt INTEGER*2 PARAMETER VARIABLE 

OPOUTB 000016 INTEGERS VARIABLE 

I REEF 000000 INTEGERS PROCfeCURE 

IROKE 000000 INTEGERS PROCEDURE 


f !. 


r 

i 

i 

i 
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oooonoooooooooooooooooooooooooooonoooooocioooorioooo 


TECHNOLOGY INCORPORATED 
Lift SCIENCE DIVISION 


PROGRAM NAME*... REPORT 

AUTHOR* RCY A. REED 

DATE *•••••••••• 2/NQV/7S 


COMPUTER SYSTEM DEC POP U03 "LSI-11" 

OPERATING SYSTEM* RT-ll V01C-03A 


COMPILING, SEQUENCE* 

,R PORTRA <CR> 
•REPOPTsREPORT^CATA/U <CR> 
*<CP> 


PUN MODUAL UNKING SEQUENCE* 

»R LINK <C»> 

*REPORT«REPOPT # C)»0*SYSLIB/P <CR> 
*<CR> 


CALLING SEQUENCE* 
,R REPORT <CR> 


PURPOSE* 

PRINTS a HAPO CCPY CP THE MINUTE SUMMARY REPORT. 

ALSO. PROVIDES THE USER AN EDITOR TC CHANGE INCORRECT 
DATA. 


cccccccccccccceccccccccccccccccccccccccccccccccccccccccccccccccccccercc 

c 
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PAGE 001 


0001 

0002 

0003 

0004 

0005 

0006 
0007 
000« 

0009 

0010 
0011 
0012 
0013 
0019 

0015 

0016 
0017 

_C~ 

c— 

c— 

0016 3 

C«* 

cc- 

c-« 

0019 

0020 41 


0021 

0022 5 

0023 

c« 

r— 

c— 

0025 

0026 6 

0027 

0028 

C— 
C — 

0030 

c— 

c— 

c— 

0031 

0032 12 

0033 

0030 13 

0035 

C— 


LOGICAL* 1 VESfKCtlAKS 
LOGICAL*** OUT * IK 

INTEGER NPSSEC (3 ) »NAME( 1 4) # ITCATE 1 3) 

INTEGER EX8TPT * IOAT A ( 1336) .RCSTRT 
INTEGER AGE.UNIG (2) .TESTRT »*LSUP 

PEAL AGATE(l) - * — 

REAL nT# ROAT A ( 640 ) 

COMMON. CCPPON /POATA/ICATA 

EQUIVALENCE (IOATA (257) #RCATA( 1 ) ) 

EQUIVALENCE (ICATA(2)#XSEX)*(It)ATA(3) #NPS3EC( 1) ) 

EQUIVALENCE (ICATA(6),M.SIP) 

EQUI VALENCE .t IDA T A (7)»LMC(1)).(IDATA(9).NPRTST)#(IDATA(]0)# ICPIO ) 
EQUIVALENCE (IDATA(lt),IFCCE)»(ICATA(l2)»ITSTYP)»(I0ATA(25). AGE ) 
EQUIVALENCE (ICATA(26)#NAFE(1)) 

EQUIVALENCE (ICATA(flO),ITCATE(t))f (I0ATA(50)#HT),(I0ATA(5?)»RT) 
OATA YES/iHY/.NC/lHK/ 

OATA OUT/ 'OUT */ # IN / ' IN '/ 

GET PATIENT FIlT 

CALL OATA(IN) 

VERIFY CORRECT SUBJECT REAC IN 

TYPE a,(NM88EC(I)#I«l#3)#LMQ(l)#LMG(2),NP»T8T,ICPIO 
X,(IT0ATE(J).J»l.3)#ITSTYP 

FORMA r(/#lX»* VERIFY CORRECT SUBJECT DATA PEAO FRCP niS*', 

X//, IX, *8.8. NLP. M3,'-M2#'-M4,5X,'UMCUF NO. ',A2,I4, 

X5X, 'RETEST NO. ',I5,5X»'CPIC NO. • , I4.5X , 'TEST OATE '# 

XI2, VM2,'/M2,5X,' TEST TYPE M2. . 

X//,'S IS this the CCPRECT SUBJECT FILE ?? YES OR NO ?? ') 

ACCEPT 5, IANS 
F0R"AT(A1) 

IFCIans.nE.yESJGC TC 3 
CHECT TO SEE IF ECIT IS RECUESTEC 
TYPE 6 

FORMAT (/ » 'S EDITOR REGUIPEC 7? YES OR NO ?? ') 

ACCEPT 5. IANS 

IF ( IAN8.EQ.YE8) CALL EOIT 

GET CURRENT OATE PROP SYSTEM 

CALL CATEC AGATE) 

GET THE NUMBER OF REPORTS NEEDEO 
TYPE 12 

FORMAT ( / » ' $ HCH MANY COPIES OF REPORT NEEDED ? ') 

ACCEPT 13.NUPRPT 
FORMAT (12) 

IF (NliPRPT .LT.llCALL EXIT 


139 


FORTRAN IV 
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PACE 002 



C— INSTRUCT THE USER TC ALIGN THE PACE 
C— 

0037 TYPE 1R 

0030 1R FORMAT (/# IX# * PLEASE ALIGN TOP CP NE* PACE *JTH PRINTER mEAC*# 
X/,* TYPE A "RETURN* nHEN REAOV ») 

^0039 ACCEPT 5# IANS - 

OORO 00 530 K«1#NUMRPT 

OOA! X*L3>0 

00R2 LINE«10 

C * * * PRINT PAGE HEAOING * * * 

C * * * USE TMX OR OX HEADER * * * 

00«3 WLSU*«ICATA(d) .... 

OORR 170 IP(ITSTYP.EQ.l) GO TO 210 

00«6 TYPE ISO 

00«7 ISO FORMAT (A$X# # ExERCI3E RESPONSE TEST S TREADMILL* ) 

00«S GOTO 190 

OORR 210 TYPE 200 

0050 200 P0R*AT(A8X, 'EXERCISE PESPCNSEJTEST: EPGOMETEP*) 

0051 1R0 TYPE 220 

0052 220 FORMAT (SOX#*JSC CARCICPULMCNARY LAeCRATCRY*) 

0053 TYPE 230 

005R 230 FORMAT (55X# *ONE MINUTE SUMMARY*) 

C * * * PRINT SUB J INPC * * * 

0055 TYPE 2aO#ICPIC#(NM 3SEC(J)#J«1#2)# 
9(ITDATE(J)#J«l#3)#(LNlG(I)#I*l#i?) 

0056 2 AO FORMATt/#* CPIC NO *#15#l2x# 

a*ss no. *# 13 #*«*#I 2 #*-*#ia#sx# 

9*DATE OF TEST *#I2#*/ *#I2*V *# 

912# 1 OX # *UNI6UE NO *»A2#IA) 

0057 TYPE 250# ( IDATA ( J ) # J«61 # 63 ) # *T # AGE #*LSLM 

0058 250 FORMAT ( IX# *ST ART TIME OF TEST J * # 12# * I * # 12 # * * * * 12# 

X1AX# **EIG*T (KG) { *#F5.1# 

XI AX # 'AGE CYRS) I *#I2,7X#.'KCRK UCAC SIM *,I5) 

C * * * PRINT CCUUMN MEAOINGS * * * 

C If TMX TEST# PRINT TMX HEADINGS 

0059 IFUTSTYP.EQ. 1) GOTC 260 

0061 TYPE 270 

0062 270 FORMATt//# *XMIN*#5X# *HR*#AX# »SBP'#5X# # ceP*#MX# # EUEV*# 

93x# *SPEED*#«># *\— VO 2 ••••\*»3x# 'VCC2*,5X, ** VCU*# 

93X# *RER'#ax# *RESP*#5 X# *mv/ VC 2 * # 2x # *m V/VC 02 * # 3x# 
i'V02/HR») 

0063 TYPE 280 

0064 2e 0 FORM AT ( * AVG*#4X#*ePM»,3X#*MM HG'#3X#'MM HG',3X, 

9*X GRD*#3X» *MPH*,5X# *L/MN ML/KG/MN' #3X, *U/MIN*# 

S4X# *L/MIN'#10X,*RATE*.22X» *mu/8EAT*) 

0065 GOTO 290 

0066 260 Type 300 

0067 300 F0RMAT(//#*XMIN',5X#*HR'#4X,'$BP*#5X#'CeP*#ax, , PCHER*# 

92X# *HL SUM»,3X,'\— VC2 * — -S*#3»# *VCC2*#5X# *« VCL*# 

93X, *RER',ax# *RESP*#5X# *MV/VC2*#2X# 'MV/VC02*#3X, 

S # V02/HR») 

0066 TYPE 310 

0069 310 FORMAT ( * AVG * # AX , # ePM * # 3X # *MM NG'#3X,'MM HG',3X, 

S*HATTS*.3X, •N-MINS3X# *U/MN ML/KG/M **#3X#*U /MIN'# 
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PAGF 041 


0070 

0071 

0072 

0073 
0070 

0075 

0076 

0077 

0079 

0080 
,0082 

0083 

0085 

0086 
0088 
0089 

0091 

0092 

0093 

0094 

0095 

0096 

0097 
0068 
0100 
0102 
0106 
0106 

0107 

0108 

0109 
0111 
0113 

0110 
0116 
one 
0120 

0121 

0122 

0123 

0126 

0125 

0126 

0127 

0128 

0129 

0130 

0131 
0133 


»«X,»L/PINM0X,*RATE*,22X, '*1/81 AT*) 

290 CONTINUE 
IPT*6« 

13-257 

IE-19+3 

I9R«« . 

00 520 J«l#3 
*13*0. 

IF<J.EQ.i)TYPE 500#(IDATA{IT)#IT*61#63> 

500 FORPATl/# lx# ** * * REST • - * REAL TINE! 

IF (J. EQ. 2) TYPE SOI # C Z0A76 C IT), IT-65, 67) 

501 FORMAT (/fix#*- * * EXERCISE * * - REAL Tl*E» *» 

*12# * t * # 12# * t * # 12) 

IF(J.EO.S) TYPE 502#(IOATACIT),IT«69#7t) 

502 FORPAT (/# IX# '* • - RECOVERY * • * REAL TIPEl '# 
*I2#'t'#I2#'*'#12) 

IF(IDATA(XPT).EC.0)6O TC 515 
00 510 1-1 # IDAT A C IPT ) 
lFfiCATA(12),E0*2)6L8«0. 

#L*0 . 

V02PKV*0. 

RER*0» 

RVPC2*0. 

RVPC02-0. 

VO2HMP-0, 

IHR*I0 A T A ( I St 1 ) 

IF(ICATA(12).E0.1) *L»FLCAT(lOATA(!S+«)) 

IFCICAT A ( j 2) .E0.2) *L*FLCAT(IOATA(I3+a))/10. 
IF(I04TA(l2).EC.l)XL8«6L3+FL0AT(ICATA(IS+fl)) 
IFfICATA(12).EC,2)*L9«RCATA(I3R^3) 

02-POAT A ( I3R) 

C02-R0ATACI5R+1) 

VOL*ROATA(ISR+2) 

IF(02.6T.C)VC2pxp*(C2*1COC.)/*T 

IF(02.CT.0)REfi*CC2/C2 

IPR-I0ATACI8+5) 

IF{O2.5T.0)RVPC2«VCL/O2 

IF(CO2.GT.0)PVPCC2«V0L/CC2 

IF (IhR. 6 T.0)VC2PRB*» 02*1800.) /FLOAT CIPR) 

TYPE 505# (IOATA(IP)# IP«I3# IE)#6L#*L8#C2# VC2NRP#CC2# VOL#PFP# tRR 

X,«V"O2#RVwC02»ve2+»f 

505 F0RPAT(iX,I2,3UX,I7)#Fe.i#F7.1#FF.2#F8.l»2X,F8.2#F8.1,F7.2,I7# 

*1 X# 3F9, 1 ) 

13*18+20 
IE*IS-r3 
I3R*ISR+10 
510 CONTINUE 
515 LINE*LINE + ICATA,(IPT) 

IPT*IPT+a 

520 CONTINUE 

TYPE S2l#(A0ATE(lJ)»IC*l#3) 

521 F0RPATC/#6ax# 'REPCRT DATE S2Aa#Al) 

IF (LINE.6T .66)1 INE-LINE-66 
LINE*N6»LINE 
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PAGE OOP 


013<» 

0135 

013'j 

0137 

0138 
01V> 
QUO 


CO 526* IL*1 »L1NE 
TYPE 525 

525 FORPAT(IX) 

526 CONTINUE 
530 CONTINUE 

CAUL EXIT ... 
END 
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FORTRAN IV STORAGE FAR 


NAPE 

OFFSET 

ATTRIBUTES 

AO ATE 

000006 

REAL*4 

ARRAY (3) 

YES 

000022 

L06ICAL*1 

variable 

NO 

000023 

LOGICAL* 1 

variable 

IANS. . 

002612 . 

LOGICAL*! 

VARIABLE 

OUT 

000024 

LOG ICAL*4 

variable 

IN 

00003Q 

L0GICAL*4 

VARIABLE 

EXSTRT 

002614 

INTEGER*2 

variable 

RCSTRT 

002616 

INTEGER*2 

variable 

TESTRT 

002620 

INTEGER*2 

VARIABLE 

DATA 

000000 

REAL*4 

PROCEDURE 

I 

002622 

INTEGER*2 

VARIABLE 

J- 

002624 

IN.TEGER*2 

variable 

EDIT 

000000 

REAL*4 

FROCECURE 

OATE 

000000 

RE AL*4 

PROCEDURE 

NUPRPT 

002626 

INTEGER*2 

VARIABLE 

EXIT 

J>iQ0Q.00 ... 

REAL* 4 

PROCEDURE . 

K 

002630 

INTEGER*2 

VARIABLE 

IftLS 

002632 

INTEGERS 

VARIABLE 

LINE 

002634 

INTEGER*2 

VARIABLE 

IPT 

002636 

INTEGER*2 

VARIABLE 

IS 

002640 

INTEGER*2 

variable 

IE . 

002642 

INTEGER*2 

VARIABLE 

ISR 

00264a 

INTEGER*2 

VARIABLE 

*LS 

002646 

RE Al*4 

VARIABLE 

IT 

002652 

INTEGER*2 

variable 

WL 

002654 

RE AL*4 

variable 

V02PKP 

002660 

RE AL*4 

VARIABLE 

REfi 

002664 

RE AL*4 

VARIABLE 

RVM02 

002670 

RE AL*4 

variable 

RVMC02 

002674 

REAL*4 

VARIABLE 

V02HR6 

002700 

RE AL*4 

VARIABLE 

IHR 

00270a 

INTEGER*2 

variable 

FLOAT 

000000 

REAL*4 

PRCCECURE 

02 

002706 

REAL *4 .. 

..variable 

C02 

002712 

REAL*4 

variable 

VOL 

002716 

REAL*4 

variable 

IRR 

002722 

INTEGER*2 

variable 

IP 

002724 

INTEGER*2 

variable 

ID 

002726 

INTEGER*2 

variable 

IL 

002730 

INTEGER*2 

variable 

COMMON 

BLOCK // 

LENGTH 000004 

COMMON 

000000 

REAL*4 

VARIABLE 

CONDON 

BLOCK /POAT A/ LENGTH 006000 

IDATA 

000000 

INTEGEP*2 

ARRAY (1536 

RDATA 

001000 

RE AL*4 

ARRAY (640) 

ISEX 

000002 

INTEGER*2 

variable 

NMSSEC 

000004 

INTEGER*2 

ARRAY (3) 

WLSUP 

000012 

INTEGER*2 

variable 
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STORAGE MAR 


NAME 

OFFSET 

ATTRIBUTES 


UNIO 

000014 

INTEGER*2 

ARRAY (2) 

NMRTST 

000020 

INTEGERS 

VARIABLE 

ICPID 

000022 

INTEGERS 

VARIABLE 

IMODE 

000024 

integer^ 

VARIABLE 

ITSTYP 

000026 

INTEGERS 

VARIABLE 

AGE 

000060 

INTEGERS 

variable 

NAME 

000062 

INTEGER*2 

ARRAY (14) 

ITDATE 

000116 

INTEGER*2 

ARRAY (3) 

HT 

00014? 

REAL*4 

variable 

m T 

000146 

RE*L*4 

variable 
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PAGE 001 


0001 


0002 

0003 

0004 

0005 

0006 


0007 


oooe 


0009 

0010 
0011 


0012 

0013 


0014 

0015 

0016 
0016 
0020 
0021 
0022 

0023 

0024 

0025 

0026 
0027 
0029 

0031 

0032 

0033 


CC— 

C— EDITOR SUBROOUTINE 
C — 

C— ALLOWS the user to change any of the subjects data 
C— STORED IN the SUBJECT'S CATA FILE. 

c— _ .. ....... .... . _ .. 

SUBROUTINE EOIT 
C— 

C— SET UP VARIABLES 
C— 

L0GICAL*1 YES ,NC # IRES 

... _ . LOGICAL*® IN, CUT. 

INTEGER IOATA(1536),ININ(40) 

REAL RDATA(6<I0) 

REALMS SECT (3) 

C— ... 

C— SET UP COMMON 8LCCK 

C— . . ... .. .. . ... . 

COMMON /PDATA/ICATA 

C— 

C— SET UP ECUVIVALE'NCE STATEMENTS 

cc— 

EQUIVALENCE (ICATA(257),RCATA(1)) 

C - • .... 

C— SET UP OATA VALUES 
C — 

OATA IN/ * IN »/,CUT/'CUT '/ 

OATA YES/1HY/.NC/1HN/ 

OATA SECT/'REST ', 'EXERCISE', 'RECOVERY'/ 

CC — 

C— GET the SECTION TO eE ECITEC 
C — 

10 TYPE 100 

100 FORMAT!/, IX, 'SELECT SECTION TO BE ECITEC ', 

X/,5X,'t - REST' 

.. X/,SX,'2 - EXERCISE', 

X/,5X,'3 - RECOVERY ' , 

X/,'$ TYPE IN THE NUMBER CF THE SECTION TO BE EDITED ') 

ACCEPT 200,ISEC 
200 FORMAT (13) 

IF (ISEC.EQ.O)GC TC 1000 
IF(ISEC.LT.1,CR.ISFC.GT.3)G0 TO 10 
MRECsI0ATA(64t(ISEC-l )*4) 

ICNTsl 
TYPE 300 

300 FORMATC/,' TYPE IN THE NUMBER(S) CF THE minuTE(S) TO PE EDITED ') 

305 TYPE 310 

310 FORMAT ( ' J MINUTE ') 

ACCEPT 200,Imin (ICNT) 

IF(IMIN(ICNT).EC.O)GO TC 390 
IFflMIN(ICNT) .LE.MREOGC TC 350 
TYPE 325 

325 FORMATt/, IX, 'MINUTE REQUESTED CUT OF RANGE: REQUEST IGNORED'; 

GO TO 305 
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003A 

0035 

0037 

0038 

0039 
0041 
0043 
0005 

0046 

0047 
0046 

0049 

0050 

0051 

0052 

0053 

0055 

0056 

0057 
0056 

0059 

0060 
0061 
0062 

0064 

0065 

0066 

0067 

0068 
0069 

0071 

0072 

0073 

0075 

0076 

0078 

0079 

0080 
0062 

0063 

0064 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0093 

0094 

0095 

0096 

0097 

0098 


350 ICNTalCM ♦! 

IFUCNT.LT. 40)GC TC 305 
390 ICNTsICNT-l 

00 500 IEO«t,ICKT 
IF(I8EC.EQ.niPTslRlN(IE0) 

IF ( ISEC .EQ.2) IFJsiP IN ( IEC } + IDATA (6 4 ) 

IF(I8EC.EQ.3)IPT*IPINfIEC)+I0ATA(64)+I0ATA(68) 

ISs257f(IPT-l )*20 

ISRa4*(IPT-l)*lC 

TYPE 395»SECT(I8EC),IPIN(ieC) 

395 FORMAT!//, IX, »* * * * , A 6 ,* MINUTE M2,' * * *',/) 
TYPE 400 

400 FORMAT!'* HEART RATE ') 

ACCEPT 405, IRES 

405 FORMAT(Al) 

IF!IRES.NE.YES)GO TC 410 
TYPE 406,I0ATA(IS+1) 

406 FORMAT ! 'S _ OLC * , # #X3# *.>£*_« ') 

ACCEPT 407 , IOATA ! IS + 1 ) 

407 FORMAT (15) 

410 TYPE 415 

415 FORMAT ! '$ SYSTCLIC BLOOC PRESSURE *) 

ACCEPT 405, IRES 

IF (IRES.NE.YES)GO TO 420 
TYPE 406»ICATA(IS+2) 

ACCEPT 407, ICATA(IS*2) 

420 TYPE 425 

425 FORMAT ! ' S OIASTOLIC BLCCC PRESSURE ') 

ACCEPT 405, IRES 
IF(IRES.NE.Y£S)GO TC 430 
TYPE 406,I0ATA(IS+3) 

ACCEPT 407,lCATA(IS+3) 

430 IF(I0ATA(12).EG.1)TYPE 435 
435 FORMAT ( 'S aORK LCAC ') 

IF(I0ATA(12).EG.2)TYPE 416 

416 FORMAT C ' S ELEVATION ') 

ACCEPT 405, IRES 
IF(IRES.NE.YES)GO TC 440 
ELEVsFLCAT(IDATA(IS+4))/lO. 

TYPE 417, ElEV 

417 FOfiMATI'S OLC s »,F8.2,' NEk a ') 

ACCEPT 418, ELEV 

418 FORMAT f F8 . 0 ) 

IDATA(IS+4)aIFlX(EL£V*lO.) 

440 TYPE 445 

445 FORMAT!'* RESPIRATORY RATE ') 

ACCEPT 405, IRES 
IF(IRES.NE.YfcS)GC TC 450 
TYPE 406, IDAT A ( IS + 5) 

ACCEPT 407,ICATA(IS+5) 

450 TYPE 455 

455 FORMAT ( 'I OXYGEN CONSUMPTION ') 

ACCEPT 405, IRES 
IFURES.NE.YESJGO TC 460 
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0100 

0101 

0102 

0103 

0104 
_ 0105 

0107 

0108 

0109 

0110 
0111 
0112 

0114 

0115 

0116 

0117 

0118 
0119 
0121 
0122 

0123 

0124 

0125 

0126 
0127 


TYPE 4l7»R0ATA(IaS) 

ACCEPT 4 1 8#RDATA ( ISR ) 

460 TYPE 465 

465 FORMAT ( # $ CARfiCN CIOUCE PRODUCTION ') 
ACCEPT 405* IRES 

IF(I»ES.Ng.YES)GO TC 470 

TYPE 41 7 #RDAT A ( ISRf 1 ) 

ACCEPT 4 18 #RC ATA ( ISR + 1 ) 

470 TYPE 475 

475 FORMATt # $ MINUTE VCLUMN ») 

ACCEPT 405# IRES 

If ClRES.Ni.YES)GO_IC 480 

TYPE 4l7,R0ATA(ISR+2) 

ACCEPT 418»RDATA(ISfit2) 

480 TYPE 485 

485 FORMAT C * $ SPEED MPH/RPM *) 

ACCEPT 405# IRES 

IP ( IRES. NE. YES) GO TC 500 

TYPE 4l7#R0ATA(ISR+3) 

ACCEPT 418,RCATA(ISR+3) 

500 CONTINUE 
GO TO 10 

1000 CALL DATA(OUT) 

.. . RETURN 

ENO 


147 


FORTH** 

IV 

STORAGE MAP 

NAME 

OFFSET 

ATTRIBUTES 

IMIN 

oooot* 

INTEGERS 

ARRAY (40) 

SECT 

000134 

REALMS 

ARRAY (3) 

YES 

000 1 7 A 

LOGICALM 

variable 

NO 

000175 

logicalm 

VARIABLE 

IRES 

001310 

LOGIC AL*1 

variable 

IN 

000164 

LOGICAL** 

variable 

OUT 

000170 

logical** 

variable 

ISEC 

001312 

INTEGER*2 

variable 

MREC 

001314 

INTEGER*2 

VARIABLE 

ICNT 

001316 

INTEGER*2 

variable 

IED 

001320 

INTEGER*2 

VARIABLE 

IPT 

001322 

INTEGER*2 

VARIABLE 

IS 

001324 

INTEGER*2 

VARIABLE 

ISP 

001326 

INTEGER*2 

variable 

ELEV 

001330 

RE AL*4 

variable 

FLOAT 

000000 

R£AL*4 

PROCEDURE. 

IFIX 

000000 

INTEGER*2 

PROCECURE 

DATA 

000000 

REAL** 

PROCEDURE 

COMMON 

BLOCK /POATA/ LENGTH 006000 

IDATA 

000000 

INTEGER *2 

ARRAY ( 1536 

RDATA 

001000 

RE AL*4 

ARRAY (640) 
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c ******************************************************************* 
c ******************************************************************* 
c * * 

C * TECHNOLOGY INCORPORATED * 

C * LIFE SCIENCE DIVISION * 

C * * 

C ******************************************************************* 

C * _ . ... . . * 

C * PROGRAM NAME* PLOT * 

C * AUTHOR! CHARLES MANN * 

C * RCY A. REED * 

C * CATE! 2/NCV/7S * 

C * * 

C * mmmmmmmmmmmmmmmm mmmmmmmmmmmmmmmmmm mm mmmmmmmmmmmmmmmmrnmmmmmmmmmmmmil 

C * * 

C * COMPUTER SYSTEM!.... CEC POP 1 103 "LSI-11" * 

C * OPERATING SYSTEM! PT-11 VC1C-03A * 

c * * 

c 

c * _ _ __ * 

C * COMPILING SEGUENCE! ' * 

C * * 

C * .R PORTRA <CR> * 

C * *PL0T«PL0T,0ATA/1 <CP> * 

C * *S0RTsS0RT <CR> * 

C * „*TITLES«TITLES <CR> . * 

C * *GPAPH*GRAPH <CR> * 

C * *ONE*ONE «CR> * 

C * *TwO*TwO <CR> * 

C * *<CR> * 

C * * 

c 

c * * 

C * RUN M00UAL LINKING SEQUENCE! * 

C * * 

C * .R LINK <CR> * 

C * *PL0T*PL0T, SORT, TITLES, GRAPH. DX 0 ! S YSL I6/F/C <CR> * 

C * .. ‘ONE.T^O _ .. * 

C * *<CR> * 

C * ... * 

C * * 

c * * 

C * CALLING SEGUENCE! * 

C * ...... * 

C * .P PLOT <CR> * 

C * * 

C tmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm* 

Q * * 

C * PURPOSE! * 

C * * 

C * PRINTS A HARD CCPY CF T HE USER SELECTED GRAPHS * 

C * * 

c ******************************************************************* 
c ******************************************************************* 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 
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0001 

0002 

0003 

0004 

0005 

0006 
0007 
0009 

0009 

0010 
0011 
0012 
0013 

9014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 


V01C-03A FRI 29-FEe-ec 14155(30 


C— — 

C PLOT 



C 

c AUTHOR! CHARLES *ANN 

C DATE! OCTOBER 19,1978 

C PURPOSE! TO CRIVE THE PLOTTING ROUTINES FOP COAS 
C 

C - 

c 

INTEGER IOATA(1536),CPIO,ISS(3),IUNC(2)»ITDATE(3) 
INTEGER lHR(491,SeP(49),C8Pt49),IC0PY 
INTEGER NL(49) 

REAL ICATE(3) 

REAL V02(49),VCC2(44) ,ROATA(640) 

INTEGER IYHR(49),IYV0L(49),IYHL(49),IYSBP(49) 
INTEGER IY08P(49),IYV02(49) ,IYVCC2(49) ,IYRESP(49) 
...... . INTEGER IY1C49) , IY2(49J , IYC2NT (49) 

INTEGERS IN 
COMMON /PDATA/ICATA 
EGUIVALENCE(ICATA(257),RCATA11)) 
EQUIVALENCE(ICATA(10),CPIC) 

EQUI VALENCE QCATA(3),ISS(1)) 

EQUIVALENCES AT A(7),IUNC(1)) 
EQUIVALENCE(ICATA(12),IPCCE) 

EQUI VALENCE (IC AT A (40 ),ITCATE(t)) 

EQUI VALENCE CIC at A ( 52) ,fcT) 

EQUI VALENCE (IC AT A (64 ),IRST) 
EQUIvALENCE(ICATA(6S)»IE*R) 

EQUI VALENCE (ICAT A (72 ),IREC) 

OATA IN/ * IN •/ 

C ZERO OUT PLOTTING BUFFER 
00 10 1*1,49 
IHR ( I ) *0 
SPP(I)*0 

08P ( I ) *0 „ . .. 

mL( I)*0 
V02 ( I ) *0 • 

VC02 ( I ) *0 , 

10 CONTTNUE 

C GET CURRENT DATE FRCP THE SYSTEM 
CALL OATE(IOATE) 

C REAO SUBJECT OATA IN FROM THE FILE 
CALL OATA(IN) 

ITOT*IRST*IEYR*IREC 
IF (IT0T.GT.49) IT0TS49 
DO 20 1*1 , ITOT 
lHR(I)*IDATA(25e*(I-l)*2C) 
SBP(I)*IOATA(259*(I«1)*20) 

OBP(I)*IOATA(2fcO + (I«n*2C) 
NL(I)*IOATA(2fcl+(I-l)*20) 
V02(I)*ROATA(<U(I.1>MO) 
VC02(I)*ROArA(5+(I-l)*lO) 

20 CONTINUE 
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0043 

0044 

0045 

0046 

0047 
0046 
0044 

0050 

0051 
005? 

0053 

0054 

0055 


1 

IF 

mm 



! 

1: 



1 

11 


C 

t: 


0056 


I 

IT 

0057 

115 

f 

1: 

0056 




0060 


% 


0062 



i 1 


C 

f 

i 

* « 

0064 


1 


0065 

125 

I 


0066 


l 

§ 


C 



0067 


f 

| 


0066 


| 

j - 

0069 


i. 

f. 

1* 

0070 


1 



C — 

1 

»» 

1 

0071 


ft 

L 

0072 

200 



0073 



w* 

0074 

210 


i 

I 

0075 




0076 

220 



0077 



»*- 

j 

0078 

230 


L 

0079 




0060 

240 

■ 

r 

0061 



% 

0062 

250 



0083 




0084 

260 


C TYPE 800#WL#ICLN#VC2#RDLM#VCQ2#ROLM 
0800 FORMAT(5(10(1X# 17) #/)#//#«< 10 (1X#F7,2)#/). 

C * //,5<10(IX#F7. ?),/)) 

C PLACE DATA INTO ARRAYS 8CALE0 PROP 0 TO 50 
00 100 1*1 #49 

IYHR( I)*CIOATA ( 256+1 1*1)* 20 )+2)/4 
IYVOLCI>«IPIX(<RCATA(6+(I-l)*10)/4.)+,5) 
mLCl)*IFlX<(FLCAT(X0ATA(261 + U-l)*20))/6.) + ,5) 

I Y3BP ( I ) * ( IC AT A (259t ( I • 1 )*20)+3)/6 
JY06P{I)*(I0ATA(260+CI-l)*20)+3)/6 
IYVC2(I)«IFIXC(RCATA(4+CI-1)*10))*10.) 
IY02*TU)*IFIX((.(RDATA(4 + (I-l)*10)*1000.)/KT) + ,5) 

I YVC02CI )*1FXX ( (RC ATA (5+ ( X*1 ) *10) ) *10 • ) 
IYRE3P<I)*UCATA<262+(I-l)*20) + i)/2 
100 CONTINUE 
C PRINT THE CHOICES 
110 TYPE 105 

105 _FQRMAT(*0 0— NO. PLOTS (STOP) *# T30# * 7— SBP VS ML*#/# 

* * 1— REGULAR 4 PLOTS * # T30 # * 8 — SBP VS HR*#/# 

* * 2— MIN, VOL, VS TIM£*#T30# * 9— S6P VS VO?*#/# 

* * 3— RESP. RATE VS TIME*,T30, *10— VC02 VS VC2*#/# 

* » 4— VO? VS TIFE(ML/KG-MIN)»,T30, Ml— MIN. VOL* VS V02*#/ 

* * 5— VO? VS *L # »730# *12— MIN. VOL, VS V CO?*#/# 

* # 6— HR VS. fcL*#//#.* MAKE A SELECTION — ♦,*) 

C REAO THE 1ST CHOICE 

ACCEPT 1 15# IPICK 1 
115 FORMAT (12) 

IF (IPICK1.LE.0J STCP 
IF (IPICKI.GT.12) GC TO 110 
IF (IPICK1.E0.1) GC TO 30C 
C ASK FOR SECONO CHCICE 
TYPE 125 

125 FORMAT(*OMAKE A SECCNO SELECTION—*.*) 

ACCEPT 115# IFICK2 

C ASK FOR THE NUMBEn OF COPIES WANTED 
TYPE 305 

ACCEPT 315# ICCPY 
TYPE 25 
ACCEPT 26# I 

C— THIS SECTION MOVES THE CORRECT OATA INTO THE FIRST PLOT ARP AY , IY 
GO TO (110#200#210#220#230#240#250#?60#270#2eO#290,296),TPICKl 
200 CALL SORT(0#IYVCL#7YVOL#IY1) 

GO TO 400 

210 CALL S0PTC0#IYRESP#IYRESP#!Y1) 

GO TC 400 

220 CALL S04T(0#IYC2hT#IY02NT#IY1) 

GO TO 400 

230 CALL S0RT(1#IYKL#ITV02#IY1) 

GO TO 400 

240 CALL SGRT(1#IY*L#IYHR,IYI) 

GO TO 400 

250 CALL SCRT(l.lYVL#IYSeP#IYl) 

GO TO 400 

2fc0 CALL S0RT(1#IYHR#IY8BP#IY1) 
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0008 

000 © 

0007 

0000 

0009 

.0090 

009! 

0092 

0093 

0094 

0095 

0096 

0097 
0090 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 
0107 
0100 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

01 16 

0117 

one 

0119 
0121 

0122 

0123 

0124 

0125 

0126 
0127 

0120 

0129 

0130 

0131 

0132 

0133 

0134 


270 

GO TO 400 
CALL SORTtl 

#1 Y VC2# I YSSP# I Y 1 ) 

200 

GO TO 400 
CALL S0PTC1 

# I Y VC2 # 1 Y VCQ2 # I Y 1 ) 

290 

GO TO 400 
CALL SORTCl 

#IYVC2#IYVQL#IY1) ....... 

290 

GO TO 400 
CALL SORTCl 

# I Y VC02# I Y VOL# I Y 1 ) 

400 

GO TO (110# 

4O6#41O#42O#43O#44O»45O#46O#47O#40O#49O#490) #IPICK2 

406 

CALL SORTCO 

# I Y VCL# I Y VOL# IY 1 ) 

410 

GO TO 500 
CALL SORTCO 

#LYRESP# IYRESP# IY2) 

420 

GO TO 500 
CALL SORTCO 

#IYC2*»T#IY02WT#IY2) 

430 

GO TO 500 
CALL SORTCl 

#IYWL#IYV02#IY2) 

440 

GO TO 500 
CALL SORTCl 

# I YWL# IYHR# I Y2) 

450 

GO TO 500 
CALL SORTCl 

#IYWL# IY5BP# IY2) 

460 

GO TO 500 
CALL SORTCl 

#IYHR#IYSBP#IY2) 

470 

GO TO 500 
CALL SORTCl 

# IYVC2# IYSBP# IY2) 

oeo 

GO TO 500 
CALL SORTCl 

#IYVC2#IYVC02#TY2) 

490 

GO TO 500 
CALL SORTCl 

# I YVC2# I Y VOL# I Y2) 

490 

GO TO 500 
CALL SORTCl 

# I YVC02 # I Y VOL # I Y2 ) 

500 

510 

CONTINUE 

CALL GRAPH(!PICK1#IPICK2,IY1#IY2#ICPIC#ISS# 


» IUNC,ITDATE#IDATE) 

TYPE 35 
IC0PY*IC0PY-1 

. IF CICOPY.GT.O) GO TO 510 
GO TO 110 

C FIND OUT HOW HAN y COPIES ARE WANTEO 
300 TYPE 305 

305 FORMTC'OHOw PAN Y COPIES CO YOU WANT? — ',$) 
ACCEPT 315# ICCPY 
315 FORMAT (12) 

TYPE 25 

25 FOPH AT ( * ALIGN NEW PAGE WITH PRINT HEAC. # # 

* • HIT RETURN KEY TO PROCEED.') 

ACCEPT 26# I 

26 FORMAT (II) 

30 CONTINUE 

CALL ONE(CPIC#ISS#ILNG#ITCATE#IHR#S0P# 

* DSP# IOATE # ICUV) 

TYPE 35 

35 FORMAT('O') 

CALL TwC(CPID#ISS.ILNG,!TCATE#WL#VC2# 

* VC02#IDATE,ICLP#IH0CE#WT) 
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0135 

0136 

0137 
0139 
01«0 


ICORYtICOFV-1 
TYRE 35 

IF ( ICOPY.GT.Q) GO TO 30 

GO TO 110 

ENO 


FORTRAN 

IV 

STORAGE MAP 


NAME 

OFFSET 

ATTRIBUTES 


IHR 

000006 

INTEGERS 

ARRAY 

(64) 

SBP 

000150 

INTEGERS 

array 

(64) 

DBF 

000312 

INTEGER*! 

ARRAY 

(44) 

ML 

000454 

. INTEGERS 

ARRAY 

(44) 

IDATE 

000416 

REALM 

ARRAY 

(3) 

VO! 

000632 

REALM 

ARRAY 

(44) 

VC02 

001136 

REALM 

ARRAY 

(44) 

IYHR 

001462 

INTEGERS 

ARRAY 

(44) 

IYVOL 

001606 

INTEGER*! 

ARRAY 

(44) 

IY*L 

001766 

INTEGER*! 

ARRAY 

(44) 

IY3BP 

0021 10 

INTEGER*! 

ARRAY 

(44) 

IYOBP 

002252 

INTEG£R*2 

ARRAY 

(44) 

IYV02 

002616 

INTEGER*! 

ARRAY 

(44) 

IYVC02 

002556 

INTEGER*! 

ARRAY 

(44) 

IYRE8P 

002720 

INTEGER*! 

ARRAY 

(44) 

IY1 

. .003062. 

_INT£GER*2 

ARRAY 

(49) . 

IY2 

003226 

INTEGER*! 

ARRAY 

(64) 

I YG2wT 

003366 

INTEGER*! 

ARRAY 

(49) 

ICOPY 

006662 

INTEGER*! 

VARIABLE 

IN 

003530 

INTEGER*6 

VARIABLE 

I 

006666 

INTEGER*! 

variable 

DATE 

000000 

REAL *6 

PROCEDURE 

DATA 

000000 

REALM 

PROCEDURE 

I TOT 

006666 

INTEGER*! 

variable 

IFI* 

000000 

INTEGER*! 

PROCEDURE 

FLOAT 

000000 

REALM 

PROCEDURE 

IPIC*1 

006650 

INTEGER*2 

VARIABLE 

IPICK2 

006652 

INTEGER*2 

VARIABLE 

SORT 

000000 

REALM 

PROCEDURE 

GRAPH 

000000 

REALM 

PROCEDURE 

ICPIO 

006656 

INT£GER*2 

VARIABLE 

ONE 

000000 

REALM 

PROCEDURE 

IOUM 

006656 

INTEGER*! 

variable 

TWO. . 

000000 

REAL *6 

PROCEDURE 

COMMON 

BLOCK /PDATA/ LENGTH 

006000 

IDATA 

000000 

INTEGER*! 

ARRAY 

(1536) 

RQATA _ 

001000 

REALM 

ARRAY 

(640) 

CPIO 

000022 

INTEGER*! 

variable 

ISS 

000006 

INTEGER*! 

ARRAY 

(3) 

IUNG 

000016 

INTEGER*! 

ARRAY 

(2) 

IMODE 

000026 

INTEGER*! 

variable 

ITOATE 

000116 

INTEGER*2 

ARRAY 

(3) 

«T 

000166 

RE AL*6 

variable 

IRST 

000176 

INTEGER*2 

variable 

IEXR 

000206 

INTEGER*2 

variable 

IREC 

000216 

INTEGER*2 

VARIABLE 
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0001 


SUBROUTINE OATA(ICSTAT) 



0002 


LOGICALwl IFILEI12) 



0003 

r 

INTEGER FILEU) 



0009 

V 

c .. 

INTEGERS IOSTAT #GLT 



0005 

c 

C 

COMMON /PDATA / IPATNTC1536) 1 THIS IS PATIENT 

OATA. 

0006 

c 

OATA OUT/ 'OUT '/ 



... JM07 

r 

DATA IFILE/.'D','X','1V' *,* 


•#'0','A','T'/ 

0006 

w 

IF (IQSET (2).NE.C) STOP 'CLEUE ALLOCATION 

FALlURE' 

0010 


IF(IOSTAT.EQ.CUT)GO TO 10 



0012 


TYPE 1025 



0013 

1025 

FORMAT CM PLEASE TYPE PATIENT DATA FILE 

NAME 

CUP TO 6 SYNPCLS) * 

0014. 


ACCEPT 1030,UFILEU),1*4,9) _ 



0015 

1030 

FORMAT (6A1 ) 




c 

c 

c 

0016 10 CONTINUE 

c . . . 

C--CONVIRT ASCII FILE NAPE TO RACI* 50 
C 

0017 IF(IOSTAT.NE.CIT) CALL IRACSO ( 12 ,IF ILE ,F ILE ) 

C 

C— OPEN FILE * 

C 

0019 ICHAK t IGETC ( ) 

0020 IF (ICHAN .LT. 0) STOP 'NC AVAILABLE CHANNEL ' 

0022 IF. (L00KUP(ICHAN # FILE) .LT. 0) 3TCP 'FILE ALLOCATION FAlLUPF' 

C 

C-»NOw READS 09 WRITES DATA t 


0024 

C 

IF(IOSTAT.EQ.CUT) GC TO 1C50 



0026 


IF ( I RE ACW( 1536 »IPATNTfO# ICHAN) .LT.O) 

STOP 

'CIS* R£AO FRROR' 

0026 


GO TO 1060 



0029 

1050 

continue 



0030 


IF ( IHR 1 TWC 1536, IPATNT # 0. ICHAN). LT.O) 

STOP 

'CISK WRITE ERRCP' 

0032 

1060 

CONTINUE 



0033 


CALL CLCSECCICHAN) 



0034 


RETURN 



0035 


ENO 
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STORAGE MR 


Ware offset attributes 

IFIIE 000016 LOGICAL*! ARRAY (12) 

FILE 000032 INTEGERS ARRAY (4) 

IOSTAT 000014 INTEGER*4 PARAMETER VARIABLE 
OUT- 000042 INTEGER*4_V AP IA6LE 
IQSET 000000 INTEGER*2 PROCEDURE 
I 000330 INTEGERS VARIABLE 

IRAOSO 000000 INTEGER*2 PROCECURE 
tCHAN 000332 INTEGER'S VARIABLE 
IGETC 000000 INTEGER*2 PROCEDURE 
LOOKUP 000000 INTEGERS PROCECURE 
I RE A OK OOOOOO INTEG£R*2 PROCECURE 
IrtRITfc OOOOOO INT£GE.R*2 PROCECURE 
CLOSEC OOOOOO RE AL*4 PROCEDURE 


COMMON BLOCK /POATA/ LENGTH .006000 

IPATNT OOOOOO INTEGER*2 ARRAY (1536) 







FORTRAN IV V01C-03A FRI 29-FEB-80 14t56t41 

C A********************************************** 

. C -- 

0001 SUBROUTINE ONE (CPIC ,SS,UNC , ITDATE , IHR, ISBP, 

S .. ICBF , IDATE, ICCPY ) 

C 

C. THIS.-SUBPPOGRAM TAKES - ARGUMENTS PASSED 

C PROP MAIN PROGRAM "PLOT* ANCGENERATES 
C GRAPHS OF HEART RATE VS TIME ANC eLCOO 

C PRESSURES VS TIME ON ONE PAGE OF 15 

a • INCH PRINTOUT PAPER * 

C 

..C .. TIME. IS A CONSTANT 50 -MINUTES.. 

C ARGUMENTS PASSEC: 

. C CP ID .... - CARDIOPULMONARY 10 NO. 

C SS SOCIAL SECURITY NUMeER 

... C . UNO UMCUE TEST NUMBER 

C ITOATE DATE CF TEST 

C ..I HR HEART RATE. (BPM) _. _ 

C SBP SYSTOLIC 0LOCC PRES. 

. C .... DBP DIASTCUIC 8LCCD PRES. 

C ICOPY COPIES CF GRAPH PEQ'D 

C IDATE _. REPORTCTCDAY'S) DATE 

c 

_ C ... . _ ■ . 

C RUTT JUN 7e 

c .. .. 

c******************************************** 

0002 DIMENSION IDATE (3) # IY.LABL ( 1 1 ) » I8AP ( 1 1 ) , 
®IHR(49) ,IIDASH(49) ,I1BLNK(49) ,I2CASH(49) , 



| 

[ 




0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 


a>I2eUNK(4O),ITIME(50), IS8P(49) , ID8P (49) , 
aiLlN ( 49 ) 

REAL IDATE 

INTEGER I YLBL2 ( 1 1 ) # SS (3) , ITC ATE (3) ,LN<5 ( 2 ) ,CP ID 
DATA ITIME/IB*1H ,1HT,1H ,1H,1H , 
aiHM,lh , 1HE,25*1H / 

DATA ICH AR 1 / 1 H»/ 

DATA ICHAR2/1H / 

DATA I8AR/1 1 * 1 H V / 

DATA IieLNK/49* # V 
DATA I2BLNK/49* * '/ 

DATA UCASH/49*'-'/ 

DATAI20ASH/49**-'/ 

DATA I0/1H0/ 

DATA IX/IHX/ 

DATA ISTAR/lh*/ 

OATA IYLABL/0,30,60,90,120, 150, 180, 
a2 10, 240, 270, 300/ 

DATA IYL8L2/0, 20, 40,60,80, 100, 


120,140, 

160, 

180,200/ 

DATA ILIN/' 

9 9 

9 

9 9 * 9 9 9 

9 $9 9 9 

9 9 

9 9 

9 

S'lO', 

9 9 9 9 9 

9 9 

9 9 

9 

* , M5 # » 


9 9 

9 

* , ' 20 ' , 



',*25', 


PAGE ,001 
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a* 

*#* 

♦#* 

# $ $ 

*# *30* t 


a* 

*# * 

*#* 

# $ § 

# # *35*# 


a* 

*.* 

••• 

9 #- 9 

*#*40*# 


a* 

*#* 

•#• 

# i 1 

*#*45*# 


a* 

s # 

*#* 

# ■ 

*/ 

J&0L9 10 

... ICOP.Y*ICOPY- 

L — ... 



C 

* 

* * 

PRINT 

PAGE 

HEADING 


0020 TYPE 951 

0021 951 FORMAT ( 15X# # JSC CARDIOPULMONARY LABORATORY * # 

_ S4SX»* JSC CARDIOPULMONARY LABORATORY*) 

C * * * PRINT GRAPH TITLES * * * 

0022 TY.PE._9 00 

0023 900 FORMAT (/# 18X# *8BP(X) & DBPCC) VS TIME»,51X, 

a'HEART RATE VS TIME*, ✓) 

0024 TYPE 910 

0025 -910 FORMAT (18X# *BLCCO PRESSURE (MM HG)*,52X, 

a*NEART RATE (6PM)») 

C * * * . PRINT.. Y LABELS * * * . , 

0026 TYPE 920#IYLABL,IYL8L2 

0027 920 F0RMAT(6X#It,4X,I2»3X#I2,3X,I2, 

a2X#I3#2X#I3#2X#I3,2X#I3#2X,I3#2X,I3# 

— a2X # 13# 19X # 12# 4X# 12 # 3x # 12 # 

83X,I2#2X,I3#2*#I3#2X,I3#2X,I3# 

... S2X#I3#2X#13#2X#I3) . 

C * * * PRINT Y LABEL MARKERS * * * 

0028 TYPE 927 » IBAR # IP AF 

0029 927 F0RMAT(2X#liC4X#iAl),17X,U(4X,lAl)) 

C * * * PRINT TOP LINE OF GRAPHS * * * 

0030 TYPE 92e#IBAR(i)#IlCASH»IBAR(l)# 
3IBAR(1),H0A$H#IBAR(1) 

0031 928 FORMAT (5X»*0*»A1#49A1#A1» 

820X# *0*#A1#49A1,A1) 

C * * * SET UP THE PLOT * * * 

0032 DO 100 I * 1 # 49 

0033 IMULTsO 


C * * * CHECK IF LINE MULTIPLE OF 5 * * * 
C DIVIDE BY FIVE ANC TEST. 

C EVEN MULTIPLE. THEN USE CASHES IN 
C LINE ARRAY INSTEAD CF PLANKS. 

C IF remainder EGLAL 0, LINE IS 

0034 XLIM=FL0AT(I)/5. 

0035 I XLINsxL IN . . . 

0036 XLDIFsxLIN-lXLIN 

0037 IF(XLDIF.GT.O.Ol) GCTO 140 

C * * * SET LINE ARRAYS=CASHES * * * 

0039 00 200 JJ=1#49 

0040 I18LNK(JJ)sICHAfil 

0041 200 I2BLNK(JJ)*ICHAR1 

C * * * SCALE HR TC FIT 50 SPACES * * * 

C ANO ROUND OFF 

C IF IHR*0 DO NCT PRINT CATA POINT 

C PRINT 49 BLANKS OR 49 DASHES 

C OTHERWISE INSERT AN X TO REPRESENT 

C HR AVG FOR THAT M JM. TE . 


PAGE 002 
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PAGE 003 


0Q42 

0044 

0045 

0046 

0047 

0049 

0050 


0051 

0053 

0054 

0055 

0056 
0056 
0059 


0060 

0062 

0063 

0064 

0065 

0067 

0068 

0069 

0071 

0072 

0073 


0074 

0075 

0076 

0077 

0078 

0079 


0080 


C * * * TEST IF IHR«Q * * * 

140 IFClHR(l) fc LT.O) GOTC 150 
X0IS*(IHR(ID2)/4 

ixoxssxcia . 

XOIFtXDIS-IXOIS 

IFCXOlP.GUO^Sl-IXCISslXCISU - 

JdXOIS 

IteLNK(J)*lX 

C * * * SCALE S8P TO FIT 49 SPACES * * * 

C - ROUNDOFF*. IF SBPsO CO NOT PRINT A DATA POINT*- 
C PRINT 49 BLANKS OR 49 CASHES. 

C INSERT. AN "X* ..IN THE LINE TC. REPRESENT 
C SBP FOR THAT MINUTE. 

C '* * * TEST FOR SBPsO * * *? 

150 IF( ISBP (I).LT.O) GOTO 160 

XDISlsClSBPCIH3)/6 
IXDlsXOISl 

x OF 1 = XJD IS i* IX C 1 

IFCXDF l.GT.0.5) IXClsIXCl+1 

JlsIXOl 

12BLNK (J1 ) = IX 

C ... * * * .SCALE DBF TO FIT 49 SPACES * * * 

C ROUNDOFF. IF CBP=0 CO NOT PRINT A CATA POINT. 

C PRINT 49 DASHES OF 49 BARS. 

C INSERT AN x IN THE LIME TC REPRESENT 

C . _08P FOR THAT MINUTE. 

C * * * TEST FOR CEPsO * * * 

160 IFCICBPCD.LT. 0) GOTO 180 

XDIS2sCI08P(I)*3)/6 
IXD2SXDIS2 
XDF2»X0IS2-IXC2 
IFCXCF2.GT.0.5) IXC2alxC2+l 
J2SIX02 
I2BLNK(J2)sI0 

C * * * TEST IF S8P=CBP * * * 

IFCJ1.NE.J2) GOTO l?0 
I2BLNK (J2)*IST AR 

C * * * LETS PRINT A CATA LINE * * * 

UO TYPE 190rITIME(I)'ILIN(I)#IBAR(l)*I2BLNK. 

aiBARCl)#ITlHE(I)rlLlN(I)#IBARCi),IieLNK,IBARCl) 
190 F0RMATCIX,A1,2X»A2#A1,49A1,A1,16X,AD2X# 

.. aA2,Al # 49Al # Al) 

c » * * RESTORE LINE ARRAYS * * * 

DO 300 JJJ=1»49 
I1BLNK (JJJ)sICHAR2 
300 I2BLNK(JJJ)sICHAR2 
100 CONTINUE 

C * * * NOW ADO THE BOTTOM LINE * * * 

TYPE 195,I8ARC1),I1CASH,IEAR(1)» 
aiBAR(l), I 10 A$H, IBAfi(l) 

195 FORMAT (4X, *50%A1,«9A1*AD 19 X , *50 * » 

3A1,49A1,A1) 

C * * * CK . . . TACK ON THE SUPJ INFO * * * 

TYPE 800,CPIC,CPIC/SSfSS»LNC A'NCr ITCATE.IOATE 
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V0U-Q3A FRI 29-FEB-eO I«t56t4l 
& # ITCATE# ICATff 

0081. 800 F0RMAT(/#5X# *CPID t * # 17 *S3X# 

a*CP10 I * # 17# /#5X# *SS NUMBER : *# 

SI3# *-M2# *-M«#A8X# *SS NUMBER t • # 13 » *- * # 12# *- M4# 
a/,5X#*UNlQUE NC.t *#A2#I4#53X#*UMCUE 

_ 8 N0*t_*#A2#L4#/#5X# 'TEST -CATE X * # 12. .*/ # # II# */* # 12# 

iBX# ’REPORT DATE I *#2A4,A1, 

... ai9X# *TEST DATE t * , 12# V M2, */ * . 12# 

aex# 'REPORT OATE t *#2A4,At) 

0082 TYPE 810 . 

0083 810 FORMAT C20X# *NCTE : AN ASTERISK 1*1 

aPLQTJED ON ANY CRAPKJNCIC ATES BOTH , 

a variables equal at that minute*) 

0084 RETURN 

0085 END 


FORTRAN iv 


STORAGE MAP 


NAME 

OFFSET ' 

ATTRIBUTES 


IOATE 

000032 

PEAL*4 

PARAMETER ARRAY 

(3) 

IYLABL 

000036 

INTEGERS 

ARRAY (11) 


IBAR 

000064 

INTEGER*2 

array (in 


IH8 

..000024 

INTEGER*2 

PARAMETER ARRAY 

(49) 

IlOASH 

000112 

INTEGER*2 

ARRAY (44) 


I1BLNK 

000254 

INTEGER *2 

ARRAY (49) 


I20ASH 

000416 

INTEGERS 

ARRAY (49) 


I2BLNK 

000560 

INTEGERS 

ARRAY (49) 


ITIME 

000722 

INTEGERS 

ARRAY (50) 


ISBP 

000026 

INTEGER*2 

PARAMETER ARRAY 

(49) 

IDBP 

000030 

INTEGER*2 

PARAMETER array 

(49) 

ILIN 

001066 

lNTEGER*2 

ARRAY (49) 


IYLBL2 

001230 

INTEGER*2 

ARRAY (11) 


SS 

000016 

INTEGEP*2 

PARAMETER ARRAY 

C3) 

ITOATE 

000022 

INTEGER*2 

PARAMETER ARRAY 

(3) 

UNO _ 

000020 _ 

INTEGER*2 

PARAMETER ARRAY 

(2) 

CPID 

000014 

INTEGER*2 

PARAMETER VARIABLE 

ICOPY 

000034 

INTEGER*2 

FARAMETER VARIABLE 

ICHARl 

001256 

INT£GER*2 

variable 


ICHAR2 

001260 

INTEGERS 

variable ... 


10 

001262 

INTEGER*2 

variable 


IX 

001264 

INTEGER*2 

VARIABLE 


ISTAR 

001266 

IN TEGER*2 

variable 


I 

002556 

INTEGERS 

VARIABLE 


IMULT 

002560 

INTEGER*2 

variable 


XL IN 

002562 

RE AL*4 

variable 


FLOAT 

000000 

RE AL*4 

PROCEDURE 


IXLIN 

002566 

INTEGER*2 

VARIABLE 


XLOIF 

002570 

REAL*4 

VARIABLE 


JJ 

002574 

INT£GER*2 

variable 


XDIS 

002576 

REAL*4 

variable 


IXDIS 

002602 

IN TEGER*2 

variable 


XOIF 

002604 

R£AL*4 

VARIABLE 


J 

jQ 0 2.6 1 0 

INTEGERS 

VARIABLE. 


X0IS1 

002612 

REAL*4 

variable 


IXD1 

002616 

INTEGERS 

VARIABLE 


XDF 1 

002620 

RE uj, *4 

variable 


J1 

002624 

INTEGER*2 

variable 


XDIS2 

002626 

REAL*4 

VARIABLE 


1X02 

002632. 

INTEGERS. 

VARIABLE _ 


XDF 2 

002634 

REAL*4 

VARIABLE 


J2 

002640 

INTEGERS 

variable 


JJJ 

002642 

INTEGERS 

variable 
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(ft********************************************** 

c 

oooi subroutine Twc(CPic,s3,LNC,iTnATE,*L,vo2, 

. id VC02, IDATE, ICCPY,IMODE,HT) 


C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


THIS SUBPROGRAM TAKES-AHGLMENTS PASSED 
FROM MAIN PROGRAM "PLOT" AMJ GENERATES 
GRAPHS OF WORK LOAD VS TIME AND GASES 
V02 & VC02 VS TIME CN ONE PAGE OF IS 
INCH PRINTOUT PAPER. 


TIME IS A CONSTANT 5Q MINUTES. 

ARGUMENTS PASSED* 

CPID CARDICPLLMONARY ID NO. 

SS SOCIAL SECURITY NUMBER 

UNO . UNIQUE TEST NUMBER 

ITOATE DATE CF TEST 

HU .... ,>CRK LOAD (WATTS) 

V02 OXYGEN CONSUMPTION (L/MIN) 

VC02 CARBON DIOXIDE PRODUCTICN I 

ICOPY COPIES CF GRAPH PEG'D 

IDATE REPORT (TODAY'S) DATE 

IMQDE BICYCLE OR TREACMIUU 


RUTT JUN 78 




0002 


0003 

0009 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 
0013 
001U 

0015 

0016 
0017 

ooie 

0019 


DIMENSION IDATE(3) # lYLABL(ll)#ieAR(U), 
awLCtt9),I10ASH(«9),I18LNK (A 9) , 1 2D ASH (99) , 
SI2BLNK (99) , ITINE(50), V02(99),VC02(99), 
$ILIN (99) , IFIV (22 ) 

INTEGER lYLAex(U) 

REAL IDATE 

INTEGER WL,SS(3)»LNG(2)»IT0ATE(3),CFID 
DATA ITIME/18MH , 1HT , 1H ,1HI,1H , 
91HM,IH , 1h£,25*1H / 

DATA ICHAR1/1H-/ 

DATA ICHAR2/1H / 

DATA I0AR/11*1H\/ 

DATA 1 10LNK/99* * •/ 

DATA I2BLNK/99* * */ 

DATA 1 1 C ASH/99* ' - # / 

DATA I2C ASH/U5 * '-' / 

DATA IO/lHO/ 

DATA IX/IHX/ 

DATA ISTAR/1H*/ 

DATA I YU ABL/O, 30, 6 0 , 90, 120,150, 180 , 
$210,290,270,300/ 

DATA IYLABX/C,8, 16,29,32,90,98, 

$56,69 ,72,80/ 

DATA IFIV/'O. '0 * , '0. V'S ', 

$'1.','0 ' , M . ' , '5 ','2.', 

$'0 •,*2.*,*5 ' , '3. * , '0 ', 


1./MIN) 


162 


FORTRAN JV 


V0IC-03A FPI 29-FE6-80 19*57:39 


PAGE 002 




a*3. 

',♦5 *»*9.*,*Q 

*, 


IP 


a*a. 

*,*5 *,*5..*,*0 

»/ 


flj; 1 0020 


OATA ILIN/ * *,» 

*, * *,* *,* 

5*, 

i ■ 


a* 

*,* *,» *,* 

*,'10*, 


W 


a* 

*,* \* *,* 

* » * 15 * » 


9 ■ — 


a* 


* » *20 * » 


m 1 


a* 

*,* # ,* 

* , *25* , 


1 


a* 

*,* *,* *,* 

*,*30*, 


m 

V w 


tf # 

*,* *,* *,* 

* , *35* , 


I I 




*,*90*, 


f: ■ 


a* 


*,»95*, 


k 

at .... 


a* 


*/ . 


I r 0021 

10 

ICOPYSICOPY-J 



r 1 

C 

* 

* * PRINT PAGE 

HEADING * * * 


6 0022 


TYPE 951 



1 - 0023 

951 

FORMAT C 1 5 X # * JSC CARC IOPULMON AR Y 

LABORATORY 

1 I 


995X 

, *JSC cardicpulmcnary laboratory*) 

f * 

C 

* 

* PRINT GRAPH.. 

TITLES * * * ... 


0029 


IF (IMODE.EQ. 1) TYPE 900 



I 


I 

I 

I 

1 


0026 900 


0027 

0029 

0030 

0032 

0033 
0035 


0036 

0038 


0039 

ooai 


0092 

0093 

0099 

0095 

009o 


0097 

0098 


901 

910 

911 
C 

920 

921 
C 

927 
C 

928 
C " 


c 

c 

c 


FORMAT (/,t 7 X»*VC 2 (X) & VCC 2 ( 0 ) VS TIME», 59 X, 
a**ORK LOAD VS TIME * »/) 

IF(IM 0 DE.EQ. 2 )TYPE 901 

FORMATS, 17 X,*VC 2 (X) l VCC 2 C 0 ) VS TIME *, 59 X, 
S * V 02 .ML/KG VS TIME*,/) 

IF ( IMODE.EQ. 1 ) TYPE 910 

FORMAT (21 X , 'GASES (L / Ml|v)', 59 x, 

3 'HORK LOAD (WYATTS ) *) 

IF(IM 0 DE.EQ. 2 )TYPE 911 
F 0 RMAT( 21 X, 'GASES (L / MIN)*, 59 X, 

3 *V 02 ML. / KG. EOC Y WEIGHT * ) 

* * * PRINT Y LAEELS * * * 

IF ( IMODE.EQ. 1 JTYPE 920 , IF IV , IYLAEL 
FORMAT ( 5 X, 2 A 2 , 10 ( 1 X, 2 A 2 ) , 
318 X,I?, 9 X,I 2 , 3 X,I 2 , 
a 3 X,I 2 , 2 X,I 3 , 2 X,I 3 , 2 X,I 3 , 2 x,I 3 , 

32 X, 13 , 2 X, 13 , 2 x, 13 ) 

IF(IM 00 E.EQ. 2 )TYPE 92 1 , IF I V , I YLAex 
FORMAT( 5 X, 2 A 2 , 10 ( 1 X, 2 A 2 ) , 16 X, 

ai 2 , 10 ( 3 x,I 2 )) 

* * * PRINT Y LAPEL MARKERS * * * 

TYPE 927 , IBAR , IB AR 

.FORMAT C 2 X , 1 1 ( 9 X , 1 A 1 ) , 17 X ,1 1 C 9 X, 1 A 1 ) ) 

* * * PRINT TOP LINE OF GRAPHS * * * 
HDASH(« 9 )sICI-ARl 

TYPE 928 ,IdARCl),IlCASH,IEAfi(l), 
3 I 8 AR(i),IlDASH,ieAR(l) 

F 0 RMATC 5 X, * 0 *,A 1 , 99 A 1 ,A 1 , 

S20X, *0 * , A 1 , 99 A 1 , A 1 ) 

* * * SET UP THE PLOT * * * 

DO 100 1 = 1, 99 

IMULT *0 

* * * CHECK IF LINE MULTIPLE OF 5 * * * 

DIVIDE 8 Y FIVE ANC TEST. 

EVEN multiple. THEN USE CASHES IN 
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0009 

0050 

0051 

0052 

0050 

0055 

0056 


0057. 

0050 

0061 . 

0063 

0060 

0065 

0067 

0068 


0069 

0071 

0072 

0073 

0070 


0075 

0077 

0078 

0079 

0080 

0081 

0083 

0080 

0085 


V01C-03A FRI 29-FE6-8C 10:57*39 

c Tine array inste'aFcf blanks. 

C IF REMAINDER EGlAL C* LINE IS 
XLlN«FL0AT(I)/5. 

IXLIMXLIN 
XL0IP«XLIN-IXLIN 
_ IF (XLDIF .GT .0 .0 1 ) 6CT0 100 
C * * * SET LINE ARRAyS*OASHES * * * 
no 200 JJ»1#09 

I18LNK(JJ)aICHAfil 
200 I2BLNK ( J J ) s ICHAfi 1 

C * * * SCALE kL TC FIT 50 SPACES * * * 

C _ . „AN0. ROUND OFF ... 

C IF WL«0 DO NOT PRINT DATA POINT 

C PRINT 09 BLANKS OP 09 DASHES 
C OTHERWISE INSERT AN X TO REPRESENT 
C WLAV6 FOR THAT MINLTE. 

C * * * TEST IF KL»0 * * * 

100 ... IFJNL(I).LT.O) GOTO. 150 ... 

IF(IMOOE.EG.l)XCISs(WL<nO)/6 

IFUM00E.EQ.2)XClS*CC{VC2(I)*10G0.)/HT) + .8)/1.6 

IXDIS*XDIS 

XDIF*X0I3-IXDIS 

IF (XOIF.GT .0.5) IXCIS*IXCIS*1 

JslXOIS „ _ 

1 1BLNK ( J )*IX 

c * * * SCALE V02 TO FIT 09 SPACES * * * 

C ROUNDOFF. IF VC2*0 CO NOT PRINT A CATA POINT. 

C PRINT 09 BLANKS OR 09 DASHES. 

C INSERT AN "X" IN THE LINE TO REPRESENT 

C . V02 .FOR THAT MINUTE. 

0 * * * TEST FOR VC2*0 * * *? 

150 IFCV02CD.LT.0.C1) GOTO 160 
XDIS1*VQ2(I)*10, 

IXOlsXOISl 
JlslXDl 
I2BLNK ( Jl )slx 

C * * * SCALE VC02 TO FIT 09 SPACES * * * 

C ROUNDOFF. IF VCC2*0 DO NCT PRINT A CATA POINT. 

C PRINT 09 DASHES OR 09 BARS. 

C INSERT AN X IN THE LINE TC REPRESENT 

C VC02 FOR THAT MINUTE. 

C * * * TEST FOR VC02sC * * * 

160 iFCVC02Cn.LT. 0.01) GOTO 180 

xniS2sVC02CI)*10. 

IX02sX0IS2 

J2SIX02 

I2BLNKCJ2)sl0 

C * * * TEST IF VC2 = VCC2 * * _* 

IFCJ1.NE.J2) GOTO 180 
I2BLNKCJ2)*ISTAR 

C * * * LETS PRINT A CATA LINE * * * 

UO TYPE 190,ITIME(I),ILIN(n,ieAR(l),T2eLNK, 

aiBAH(l),ITIME(I)f ILXN(I)#IBAR(l) # IlBLNK,ieAR(U 
190 F0RMAT(iX#A1.2X.A2»Al#O9Al»Al#16XfAt.2X. 


164 


FORTRAN IV 


V01C-03A FRI 29-FEB-60 19*57*39 


PAGE 004 


8A2» AJ ,99A 1 , A1 ) 

C * * * RESTORE LINE ARRAYS * * * 

0066 00 300 JJJ«1,99 

0087 ... IlBLNK (JJJ)«ICHAR2 

0086 300 I2BLNK(4JJ)*ICHAR2 

0089 . 100 CONTINUE - ... 

C * * * NO* ADO THE eCTTOW LINE * * * 

0090 TYPE 195,1BAR(1)#X1CASH#I6AR(1), 

SI BAR U)tllDAShflBAR(l) 

0091 195 F0RMATC9X, # S0',Al,99Al,Al#19X, '50', 

9A 1 , ORA 1 » A 1 ) 

_ . C * * * OK . . .TACK ON THE SU8J INFC * * * 

0092 TYPE 800,CPI0,CPIC,SS,SS,LNC,UNG,ITCATE,IDATE 

.4 , ITCATE, ICATE 

0093 800 FORMAT!/, 5X,'CPI0 *',I7,53X, 

. _ .a.?.CPIO . - *',I7,/,5X,'SS NUMBER I ', 

8I3#'-',I2#'-M«#06X,'SS NUMBER * Ml* *-M2# '-M0, 
. ... 8/,5X, 'UNIQUE NO-* .',A2, 10, 53X,'UMCUE 

S NO.* ',A2,I0,/,5X,'TEST CATE : M2,VM2*VM2, 
38X, 'REPORT DATE l ',2A0,A1, 

819X,'TE3T DATE * M2,VM2*VM2* 

S8X, 'REPORT DATE *.',2A0,A1) 

0099 TYPE 810 

0095 810 FORMAT (20X»'NCTE*. AN ASTERISK [*] 

SPLOTTEO ON ANY GRAPH INDICATES BOTH 

a variables egual at that minute') 

0096 RETURN 

0097 ENO 
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STORAGE MAP 


NAME 

OFFSET 

'attributes 

1 



IOATE 

000032 

PEAL*4 

parameter 

ARRAY 

(3) 

I YLA8L 

000042 

INTE6ER*2 

ARRAY (11) 



IBAR 

000070 

INTEGER*2 

ARRAY (11) 



WL 

000024 

INTEGERS 

PARAMETER 

ARRAY 

(49) 

ItOASH 

000116 

INTEGER*2 

ARRAY (44) 



UBLNK 

000260 

INTEGER*! 

ARRAY (49) 



I2DASH 

000422 

INTEGERS 

ARRAY (49) 



I2BLNK 

000564 

INTEGER*! 

ARRAY (44) 



ITIME 

000726 

INTEGER*2 

ARRAY (50) 



V02 

000026 

REAL*4 

PARAMETER 

ARRAY 

(44) 

VC02 

000030 

R£AL*4 

parameter 

ARRAY 

(49) 

ILIN 

001072 

INTEGER*! 

ARRAY (49) 



IFIV 

001234 

INTEG£R*2 

ARRAY (22) 



I YLABX 

001310 

INTEGER*2 

ARRAY (11) 



SB 

000016 

INTEGER*! 

parameter 

ARRAY 

(3) 

UNO 

000020 

INTEGER*2 

PARAMETER 

ARRAY 

(2) 

ITOATE 

000022 

INTEGER*! 

PARAMETER 

ARRAY 

(3) 

CPIO 

000014 

INTEGER*! 

PARAMETER 

VARIABLE 

I COPY 

000034 

INTEGER*! 

PARAMETER 

VARIABLE 

IMODE 

000036 

INTEGERS 

PARAMETER 

variable 

WT 

000040 

REAL*4 

parameter 

variable 

I CHAR 1 

001336 

InTE6EP*2 

variable 



T.CHAR2 

C01340 

INTEGER*! 

VARIABLE 



ir 

001342 

INTEGER*! 

variable 



IX 

001344 

integers 

VARIABLE 



ISTAP 

001346 

INTEGER*! 

variable 



I 

003002 

INTEGER*2 

VARIABLE 



IMULT 

003004 

INTEGER*! 

variable 



XLIN 

003006 

REAL*4 

variafle 



FLOAT 

000000 

REAL*4 

PPOCFCURE 



ixlin 

003012 

INTEGER*! 

VARIABLE 



XLOIF 

003014 

R£AL*4 

variable 



JJ 

003020 

INTEGER*2 

variable 



XOIS 

003022 

RE AL*4 

VARIABLE 



IXDIS 

003026 

INTEGERS 

VARIABLE 



XOIF 

003030 

REAL*4 

variable 



J 

003034 

INTEGER*! 

variable 



XDIS1 

003036 

REAL*4 

VARIABLE 



I X01 

003042 

INTEGER*! 

variable 



Jl. 

003044 

integers 

variable 



XDIS2 

003046 

REAL*4 

VARIABLE 



IXD2 

003052 

INTEGER*! 

variable 



J2 

003054 

INTEGER*! 

variable 



JJJ 

003056 

INTEGER*! 

variable 
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1 

i; 


0001 

0002 


ccecccccccccccccccccccccccccccccccccccccccccccoccccccccccccccecc 

c 

C SUBROUTINE TO SCRT THE X ARRAY DATA, AVERAGE THE CORRESPONDING 
C ^ ARRAY DATA AND THEN STCRE THE AVERAGE VALUE IN THE CORRECT 

C WORD OF THE OUT ARRAY. 

C. . . ..... _ _ ... 

C AUTHOR I ROY A. REED DATE * 27-0CT-78 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C - . 

c 

SUBROUTINE 30RT(3FLG, IXA, IYA,I0A) 

INTEGER SFLG,IXA(49),IYA(49),I0A(49) 


II 

- 

C 

C 

- 





0 

TYPE. 800,IXA,SFLG,IYA,SFLG, 

10A 

»SFLG 

I . 


oeoo 

FORMAT ( * MUM SORT RAif A* 

• 

•-I X A-»- ' , / , 

1 • 


0- 

* 5<l0<lx,l6)/),/,*_ 

• 

■•••lYA»»-»»*, /, 


* 

0 

* 5(lO(lX,I6)/),/,5X,* 

mm 

»IQA-«» ' , / , 



C 

* 5(10(1X,I6)/)) 



I 

0003 


DO 100 IZ*1#49 

HOOP TO ZERO 


0004 

100 

c 

I0A(IZ)*0 

1 

THE OUTPUT ARRAY 

7 ' 

0005 

c . 
c 

IF(SFLG.EOri) GC TC 300 

i 

TEST TO SEE IF A SCRT IS NEEDED. 

I 

! - 

0007 

c 

DO 200 IT*i,49 

i 

NO SCRT NEEDEO 


0006 

200 

I0A(IT)«IYA(IT) 

j 

CO A DIRECT TRANSFER OF DATA 



0 

TYPE 800,IXA,SFLG,IYA,SFLG, 

IOA 

,3FLG 


OOOR 

c 

RETURN 

1 

FINSHFD RETURN TO CALLING ROUTINE. 

| - 

0010 

c 

300 

00 600 1*31,49 

l 

SORT NEECEDf SET UP LOOP TO SORT- 

i 


c 



i VALUES FROM SMALLEST TO LARGEST. 


0011 


AVG*0. .. 


ZERC THE ACCUMULATOR FOP EQUAL 

V 

1 


c 


1 

VALUES. 

0012 


ICNTsO 

1 

ZERO THE COUNTER FOR EQUAL VALUES 

* 


c 

c 


i 

IN THE X ARRAY 

9 * 

0013 

c 

DO 500 13*1 ,49 

l 

LOCP TO GET ALL EGLAL VALUES IN 



C 


1 

INCREASING ORDER. 


0014 


IFdXA(IS).NE.lA) GC TO 5C0 

l 

IF THE X VALUE IS GREATFR THAN 

j 


c 


1 

THE TEST VALLE BRANCH. 

b 

0016 


AVG*AVGfFLOAT(jYA(I$)) 

l 

sumate all ecual valufs 


0017 


ICNT*ICNT*1 

1 

INCREMENT THE COUNTER FOP EQUAL 

] 


c 


l 

values. 

I 

0018 

500 

c 

CONTINUE 



I 

00 1 R 

c 

IF (ICNT.EQ.O) GO TC 600 




0021 


I0A(Ia)3IFIX((AvG/FL0AT(ICM))4..5) i calculate the average value 


0022 

600 

CONTINUE 



I 
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C 

C 

C 

C 

0023 RETURN 

0.024 _ „ END 


t AND STORE TPE AVERAGE IN 
I THE CORRECT NOPD IN OUT 
1 ARRAY. 

t ALL CONE PETUN TO CALLING ROUTINE 
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FORTRAN 

IV 

STORAGE FAR 



NAME 

OFFSET 

ATTRIBUTES 

t ‘ 



1XA 

oooou 

INTEGERS 

parameter 

array 

(40) 

IYA 

000020 

INTEGER*? 

PARAMETER 

ARRAY 

(40) 

IOA 

000022 

INTEGER*? 

parameter 

ARRAY 

(40) 

3FLG 

000014 

INTEGER*? 

parameter 

variable 

IZ 

000024 

INTEGER*? 

VARIABLE 



IT 

000026 

INTEGER*? 

variable 



IN 

000030 

INTEGER*? 

VARIABLE 



AVG 

000032 

REAL* 4 

VARIABLE 



ICNT 

000036 

INTEGER*? 

variable 



IS .. 

000040 

INTEGER*? 

VARIABLE 



FLOAT 

000000 

ME AL*4 

PROCECURE 



IFIX 

000000 

INTEGER*? 

PROCECURE 




FORTRAN IV 
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PAGE 001 


0001 


0002 

0003 

000 a 

0005 

0006 
0007 
0006 
0009 


0010 

0011 


0012 

0013 

OOia 

0015 


0016 

0017 

0019 

0021 

0023 

002 a 

0026 

0028 

0029 

0030 

0031 

0032 

0033 
003a 


C 

c- ........... — ----- - - ----- 

SUBROUTINE GRAPKIP1C*1,IPICK2,IY1, IY2,ICPID, 

* ISS#IUNQ#ITCATE,IPATE) 

c- 

c . . .... 

c authors Charles maan 

C OATES OCTOBER 31# 1978 

C PURPOSES THIS IS A GENERAL PURPOSE ROUTINE FOR PLOTTING WHATEVER 

C DATA IS PASSED TO IT FOR THE COAS PLOTS. 

C - - - — — 

c 

INTEGER IYl(i»9),lY2(a9),ISS(3),ILNG(2)#IT0ATE(3) 

INTEGER IHEADl(12).IHEAC2(12).IXLAtjl(22),I*LAe2(22) 

INTEGER IYLABl(22)#IYLAe2(22) ,ICASH 1 (a9),I0ASH2(a9),IX 
INTEGER IBLNKl(a9)#IBLNK2(a9)#ICASH#IBLANK 
REAL ID ATE (3) 

DATA IDASHl/a9<i , -V#ICASH2/a9**-*/# IPLNKl/a9* # V# I8LNK2/a9* * */ 
DATA lX/*X»/#ICASH/*-*/#I8LANK/* */ 

DATA IBAR/1HN/ 

0 TYPE 80Q,IY1,IPICK1#IY2»IPICK2 

0800 FORwATC* *n*«u* GRAPH **««** * , / #5 ( 1 0 ( 1 X , 16) # / ) # / # 

C * ' IY2 ---*#/# 

D * 5(10(lX#Ifc)#/)) 

C PRINT CLINIC TIT' E 
TYPE 25 

25 FORMATC *0*,T19, # JSC CAPCICPLLHCN ARY LABORATORY*, 

* T83# * JSC CARDIOPULMONARY LABORATORY*#/) 

C GET THE LAPELS FOR THE PLOTS 

CALL TITLE3(IPICK1,IHEAC1#IXLAB1 ,IVLAB1) 

CALL TITLES(IPICK2,IHEAC2# IXLA62, IYLAE2) 

C PRINT THE PLOT TITLES ANO Y AXES 

TYPE 35#lHEADl#lHEAC2,IYLAei#IYLAP2,lXLA61 (1) , IXLAB1 (2) , 

* IDASH1#IXLAB2(1)#IXLA62(2)#IQASH2 

35 FORHATC*0*#T22# 12A2#T88,12A2,/, *0*#2X, 11 f 1X,2A2), 

* T66#ll (IX,2A2)#/# # *#ll(AX#*\*),T67,ll(ax#*\*)#/»* *, 

* "A2,*\*#a9Al,»\»,T67,2A2#*\*,«9Al, *\*) 

C— — PRINT THE PLOTS—— 

00 ao LINE*l#a9 

IF (V00(LINE#5).NE.0) GO TC 20 
C USE A DASHED LINE 

IF ( IY 1 (LINE) .LE.O) GO . TO 5 
IF ClYl(LlNE).GT.fl9) lYl(LlAE)=a9 
IDASH1 (IYl(LlNE))slX 
5 IF CIY2(LINE).LE.0) GO TC 10 

IF ( I Y2 (LINE ) «GT .49) IY2(LIAE)*49 
I0ASH2(IY2(LIAE))sIX 
10 J*(L INE/5 ) *2+1 

TYPE 15# I XL API ( J) # IXLABHJM ) , ICASH1 , 

* IXLA32(J),IXLAP2(J+1),ICASh2 

15 F0RWAT(2X,2A£,*N*#a9Al#*\*#T67#2A2,*\*#a9Al, »\») 

I0ASH1 (IY1 (LiN6))*ICASM 
IDASH2(IY2 (LINE):sICASH 
GO TC ao 
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C USE A BLANK LINE 


i I 



0035 

20 

IF (lYl(LlNE).LE.O) GO TO 22 

i 

0037 


IF ( I Y 1 (LINE) .GT . 99 ) IYl(LINE)s 99 

u 

0039 

0090 

22 

IBLNK 1 (IY 1 (LINE))»IX 
IF (IY 2 (LINE).LE. 0 ) GO TC 23 

t*- 

0092 


IF (IY 2 (LTNE).GT. 99 ) IY 2 (LINE )«99 

* , 
1 1 

OOtta 


I 8 LNK 2 ( I Y 2 (LINE ) )*IX 

i n 

0095 

23 

TYPE 26 # IBLNK 1 # IELNK 2 


0096 

28 

FORMAT ( 6 X, '\'# 99 A 1 , »\ ' , T 7 1 # '\ ' , 99 A 1 , »\ » ) 

if 

0097 


IBLNK 1 (IY 1 (LINE))sIBLANK 

Ii 

0098 


I 8 LNK 2 (IY 2 (LlNE))*ieLANK 


0099 

90 

CONTINUE 

i ' 


C 

PRINT THE LAST LINE ANC THE SUBJECT/TEST IDENTIFICATION 

1 : 

i 

a « 

0050 

c 

* * * NO* ADO THE BOTTOM LINE * * * 

TYPE 195 #lXLAei( 2 l)»IXLABl( 22 )#IBAR,ICASHl#.I 8 AR, 

f 

0051 

195 

aiXLA 82 ( 21 ),IXLAB 2 ( 22 )#I 6 AR,I 0 ASH 2 ,IBAR 
F 0 RMATC 2 X, 2 A 2 , 51 A 1 #T 67 , 

3 ; 

I 

0052 

C 

S 2 A 2 , 51 Al) 

* * * OK . . . TACK ON THE SU 0 J INFC * * * 

TYPE 50 #ICPIO#ICPID#ISS#ISS.IUNC#IUNQ#ITDATE#IOATE 


0053 

50 

& ,ITDATE»ICME 

F 0 RMAT(/, 5 X#'CPI 0 : ' # 17 # 53 X# 


0059 

0055 


i'CPID » 

3/#5X, 'UNIQUE 
0 


#I7#/#5X,'SS NUMBER 
#I9,98X,'SS NUMBER _ 

NC.: '#A2,I9,53X#'UNIGUE 
* NO.: '#A2#I«»/#5X#'TEST CATE 
38X, ’REPORT OATE : '#2A9,A1# 

3 19X » * TEST DATE : .'#12# 

38X#'REPGRT OATE : '#2A9,A1) 

RETURN 
END 


'/* # 12# '/ 1 


' » 13 # '-' # 12 # '* 


» 12# ' / ' * 12# ' / ' » 


'#19, 

12 # 


<I2< 


I 

I 

I 

I 
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FORTRAN IV 


STORAGE FAR 


NAME 

IY1 

IY2 

ISS 

IUNQ _ 

ITDATE 

IHEAOI 

IHEA02 

IXLABL 

IXLA02 

IYLABt 

IYLA82 

IDASH1 

IDASH2 

I8LNKI 

IBLNK2 

IOAT.E 

IPICK1 

IPICK2 

ICPID 

IX 

IOASH 

I BLANK 

IBAR 

TITLES 

LINE 

MOD 

J 


OFFSET ATTRIBUTES 

000020 INTEGERS PARAMETER ARRAY (99) 
000022 INTEGERS PARAMETER ARRAY (99) 
000026 INTEGER*2 PARAMETER ARRAY (3) 
000030 INTEGERS PARAMETER ARRAY (2) 
000032 INTEGERS PARAMETER ARRAY (3) 
00003O INTEGER*2 ARRAY (12) 

000066 INTEGER*2 ARRAY (12) 

000116 INTEGER*2 ARRAY (22) 

000172 INTEGERS ARRAY (22) 

000296 INTEGERS ARRAY (22) 

000322 INTEGERS ARRAY (22) 

000376 INTEGERS ARRAY (99) 

000590 INTEGE«*2 ARRAY (99) 

000702 INT£GER*2 ARRAY (99) 

001099 INTEGER*2 ARRAY (99) 

000039 R£Al*9 PARAMETER ARRAY (3) 
000019 INTEGERS PARAMETER variable 
000016 INTEGER*2 PARAMETER VARIABLE 
000029 INTEGER*2 PARAMETER VARIABLE 
001206 INTEGER*2 VARIABLE 
001210 INTEGER*2 VARIABLE 
001212 INTEGER*2 VARIABLE 
001219 INTEGER*2 VARIABLE 
OOOOOO REAL*9 PROCEDURE 
002139 INTEGER*2 VARIABLE 
OOOOOO INTEGERS PROCEDURE 
002136 INTEGERS VARIABLE 
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0001 
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SUBROUTINE TITLES(ICOOE,lREAD,lXLAeL,IYLAfcL) 


0002 

0003 

0004 


0005 


0006 


AUTHOR! CHARLES MANN 

DATE OCTOBER 31# 1978 ... . ... 

PURPOSE! TO STORE THE TITLE AND AXIS LABELS IN 
THE APPROPRIATE ARRAYS 


INTEGER IHEAC1(12,11),TXLA8L(22),IYLABL(22),IYXVAL(2,11) 
INTEGER ILA9EL(22»5J#IHEAC(12) 

DATA IHEAD1/ 


l 

9 9 9 

', 'Ml 

'»'N ', 

'VO*, 'L 


'VS 

',' T * , * IV 

','E ',' 

',' 


', 

2 

' * , ' R 

* » 'ES 

','P ', 

'RA', »TE 

9 9 

' V 

','$ ' , * T I 

','VE',' 

9 9 

9 


9 

9 

3 

'VO', '2 

•#'vs 

T', 

'IV', 'E 

9 9 

'(V 

','L/', 'KG 

', '-M','IN 

',' 

) 

0 

9 

a 



',' V', 

'C2 ', ' V 

§ 9 

♦s 

','YL',' 

9 0 9 9 




5 . 



9 9. V . 9 9 

>e.','.v 

9 J 

'S 

','JNL'#' 





6 


9 9 

9 

',' s*. 

'ep*,' v 


'S 

','HL',' 

9 9 9 9 

9 9 

9 


9 

9 

7 


9 9 

', ' S'r 

'8P',' V 

9 9 

'S 

* , 'HP ' , ' 

9 9 9 9 

0 9 

9 


', 

6 

0 0 0 
9 

9 9 

9 

',' S'# 

'BP',' V 

9 9 

'S 

', 'VO*, '2 

9 9 9 9 

', ' 


9 

9 

9 


' , * V 

', 'CO', 

'2 ', 'vs 

9 9 

' V 

',' 02 ',' 

0 9 9 9 

0 0 
9 


9 

9 

A 

' 

0 9 § M 

' , ' I N ' , 

' V','GL 

9 9 

' V 

','S ','VO 

’,'2 ',' 

',' 


9 

9 

B 

0 0 0 
9 

','MI 

'.# *_N_ * r 

'vo', a 


'VS 

',' V', 'CO 

' , '2 ',' 



'/ 

DATA 

ILABEL/ 











1 

' ', ' 0 


',' S', 

' ','10 

9 9 

• 

',' 15 ',' 

', ' 20 ', ' 


25 

9 

9 

& 

* ' , ' 30 


',' 35 ', 

' ',' 40 ' 

0 

9 

,' 45 ',' ' 

, ' 50 ', 




2 

' ' , ' 0 


', ' 20 ', 

' ','40 

9 9 

9 

',' 60 ',' 

',' 80 ',' 1 


00 


& 

' 1 # # * 2 0 

', ' 1 

', ' 40 ', 

' 1 '* '60 

9 9 

' 1 

',' 60 ',' 2 

', ' 00 ', 




3 

' »,» 0 

9 9 

9 

',' 30 ', 

' ','60 

9 9 

9 

',' 90 ',' 1 

',' 20 ',' 1 

9 9 

. 9 

50 

9 

9 

R 

* 1','80 

',' 2 

',' 10 ', 

' 2', '40 

9 9 

' 2 

',' 70 ',' 3 

', ' 00 ', 




4 

' 0','.0 

', ' 0 

','. 5 ', 

' 1','.0 

9 9 

' 1 

','. 5 ',' 2 

','. 0 ',' 2 


.5 

9 

9 

& 

* 3 ' » ' . 0 

',' 3 

','. 5 ', 

' 4»,».0 

9 9 

' 4 

','. 5 ',' 5 

', '.O', 




5 * 

',' O'# 

* 

' 10 ',' 

', ' 20 ', 



' 30 ',' ', 

' 40 ',' ', 

'50 

9 

9 


& * 

',' 60 ', 

' ', 

' 70 ',' 

', ' 80 ', 


', 

’ 90 ',' 1 ', 

' 00 '/ 




DATA 

IYXVAL / 2 , 1 , 

... 5 , 1 , 

. 1 , 1 , 


4 

, 3 , 2,3 

, 3 , 3 , 




* 


3 , 2 , 

3 , a . 

4 , 4 , 


2 

, 4 , 2 , 4 / 





1 

i ■ 

i. 

D 

ceoo 

TYPE 600 , ICODE 

FORMAT C ' *#**M TITLES ****** 

ICCDEs',13) 

0007 

r 0008 

1 0009 

100 

JCODEsICODE-l 
DO 100 1*1,12 

:head(1)*iheaoi (i,jcode) 


0010 

0011 


DO 200 1*1,22 

IXLABL(I)*ILABEL(I,IYXVAL(2, 

JCODE) ) 

0012 


IYLA0L(I)*ILABEL(I,IYXVAL(1, 

JCCCE ) ) 

J * 0013 

200 

continue 


0014 

r 0015 


RETURN 

END 
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FORTRAN IV STORAGE MAP 

NAME OFFSET ATTRIBUTES 

I HEAD 1 000024 INTEGER*? ARRAY (12,11) VECTORED 

IXLA8L 000020 INTEGER*? PARAMETER ARRAY (22) 

IYLABL 000022 INTEGER*2 PARAMETER ARRAY (22) 

IYXVAL 000034 INTEG£R*2 ARRAY (2,11) 

ILA6EL 000510 INTEGER*? ARRAY (22,5) VECTORED 
IHEAO 000016 INTEGER*2 PARAMETER ARRAY (12) 

ICODE 000014 INTEGER*? PARAMETER VARIABLE 

JCODE 001104 INTEGER*2 VARIABLE 

I 001106 INTEGER*? VARIABLE 
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c . ******************************************************************* 
c ******************************************************************* 
c * * 

C * TECHNOLOGY INCORPORATED * 

C * LIFE SCIENCE DIVISION * 

C * * 

C ******************************************************************* 

c * * 

C * PROGRAM NAMES., EDICON * 

C * AUTHOR* RCY A. REED * 

C * DATE:.......... 2/NOV/78 * 

C * * 

C * * 

C * * 

C * COMPUTER SYSTEM* DEC PDP 1103 "LSI-11" * 

C * OPERATING SYSTEM* RT-11 V01C-03A * 

C * * 

C 

C * . * 

C * COMPILING SEQUENCE* * 

C * __ * 

C *' .R FORTRA <CR> * 

C * *EDICONsEDICON <CR> * 

C * *<CR> * 

C * * 

C ....... .... ... * 

C * * 

C * PUN MOOUAL LINKING SEQUENCE: * 

C * * 

C * .R LINK <CR> * 

C * *EOICONsECICON,l3XO*SYSLIB/F <CR> * 

C * *<CP> * 

c * _ * 

c * - 

c * * 

C * CALLING SEQUENCE* * 

c * * 

C * .P EDICON <CR> * 

C * * 

c 

C * * 

C * PURPOSE: •- * 

C * * 

C * ALLONS THE USER TC MOCIFY THE CONSTANTS USED BY THE * 

C * CALIBRATION ROUTINE IN THE MAIN PROGRAM PPOCES. * 

C * THE CONSTANTS ARE STORED IN THE DISK FILE CALCON.OAT. * 

C * * 

c ******************************************************************* 

c ******************************************************************* 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 
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RAGF 001 


0001 

0002 

0003 

0004 

ooos 

0006 

0007 

0009 

0011 

0012 

0013 

0014 

0015 
0017 

0016 

0019 

0020 
0021 
0022 

0023 

0024 

0025 
0027 

0026 

0029 

0030 

0031 

0032 

0033 

0035 

0036 


LOGICAL*! IANS, YES, NO 
INTEGER FILE(4) 

REAL CALBUF(256) 

DATA YES/1HY/,\C/1HN/ 

CALL IRA050(12, # 0X0CALCGNCAT',FILE) 

ICHANsIGETCC) 

IF(L00KURCICHAN,FILE) .LT.O) STOP 'LOOKUP ERROR' 
IF(IR6AOw(2S6,CALBUF,l,IChAN).LT.O) STOP 'OISK READ ERROb* 
TYPE 2 

2 FORMAT (/# *S LIST OF CURRENT VALUES NEECEO ?? YES OR NO ??') 
ACCEPT 3, IANS 

3 FOPMAT(Al) 

IF(IAN$.NE.YES)GO TC 6 
DO 5 1*1,22 

TYPE 4,I,CAL8UF(I) 

4 FORMAT(/, IX, 'CALIBRATION FOP *0R0 ',12,' IS ',F10.2) 

5 CONTINUE 

8 TYPE 6 

6 FORMAT!/, 'S TYPE IN NUMBER OF wORC TO EDIT ') 

ACCEPT 7,1 

7 FORMAT (13) 

IF(I.EG.O)GO TO 20 
TYPE 10,I,CALeUF(I) 

10 FORMAT!/, 'S fcORC ',14,' ) OLD = ',F10.2,' NEW = ',) 

ACCEPT 15,CALBUF(I) 

15 FORMAT (F 1 0 • 0 ) 

GO TO 6 

20 CONTINUE 

IFdwRITw! 256 ,CAL0UF, 1 , ICRAN ) . LT .0) STOP 'DISK WRITE ERROR' 
CALL CLOSEC(ICHAN) 

STOP 




FORTRAN' IV 


.. NAME 

OFFSET 

FILE 

000006 

r CALBUF 

000016 

1 IANS 

002412 

YES 

002016 

_ . NO._ 

002017. 

$ IRAD50 

000000 

*i ICHAN 

002414 

IGETC 

000000 

r LOOKUP 

000000 

i! IREAOH 

000000 

.1 

002R16 

IWRITN 

000000 

i :losec 

000000 


I ! 

I ; 


STORAGE MAP 

ATTRIBUTES 

INTEG£R*2 ARRAY (4) 
REAL*A ARRAY (256) 
LOGICALM VARIABLE 
LOGICAL*l VARIABLE 
LOGICAL*! VARIABLE 
INTEGERS PROCEDURE 
INTEG£R*2 VARIABLE 
INTEGER*2 PROCEDURE 
INTEGERS PROCEDURE 
INTEGER*2 PROCEDURE 
INTEGERS VARIABLE 
INTEGER*2 PROCEDURE 
REAL*4 PROCEDURE 
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APPENDIX I 

FORMAT OF THE FLOPPY DISK FILE 


'ED. ING 


PAGE 


PL'A.N’E k 


; ° T FTLMTn 
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CPAS PATIENT DATA FILE - FIRST BLOCK - PRETEST DATA 




























PRED ] FVC IS OBS/ PRED FVC PRED Ft VI K OBS/P 








CMS PAT I EOT DATA FILE - LAST FIVE BLOCKS - EXERCISE MTA 












